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FOREWORD 


I first met Robert Young more than ten years ago, when we 
were both working for (and I shudder to think of it now) the 
Public Service arm of the Victoria Police Department. I 
remember we spent a lot of time plotting (but unfortunately 
never putting into action) ways of inserting bogus ‘crimes’ into the 
department’s massive mainframe computer. 

There was no way - in those days - for ordinary mortals to 
possess computers, so our computer game-playing had to be 
done in imagination. After I left the department, and started 
plying various trades around the world, Rob became addicted 
to computer game-playing after a chance encounter with the 
massive adventure program ZORK on a university time¬ 
sharing system. In London, I bought a ZX80, the first machine 
I could actually afford, and a year later, in Geelong, Robert 
Young bought his first computer, a TRS-80. 

With Roger Bush, Rob formed a company designed to market 
computer games. Their first product, a war game, was a 
significant failure. Significant in that the production and 
advertising costs wiped out all their meagre capital, and the 
company faded away. 

I’d kept in touch with Rob over the years, and on one of my 
trips to Australia at the end of 1982, called in to see him one 
day and noticed he’d recently bought a Tandy Color 
Computer. We started talking about the possibilities of 
computer books. It was obvious that Roger would be involved, 
due to his computer interest. 

It has proved a particularly fruitful relationship for all of us. 
Since that time, Rob (sometimes on his own, and in other 
cases in collaboration with Roger or myself) has written some 
nine books on computers and computer gaming which have 
been published around the world. 

This is his latest, and - without doubt - the strongest book to 
date. The two authors commissioned a number of programs 
from some of Australia’s most brilliant young programmers, 



and wrote the others themselves, to produce a balanced 
collection of very worthwhile programs for your Commodore 
64. 

Whether you’re looking for arcade games, the action and 
excitement of Adventure and simulation programs, or for a series 
of challenges to your brainpower, you’ll find the programs in 
this collection. And because they were created specifically for 
the Commodore 64, they make the maximum use of the 64’s 
powerful colour and sound capabilities. 

It’s time you started a-gaming. After all, the ROMAN EMPIRE, 
the dizzy planet of CHAOS and the criminals on the prison 
planet of URIEL are waiting for you to bring meaning and 
order into their lives. 

Grasp your joystick firmly in your hand, and plunge into the 
world of Games Commodore 64’s Play. 

Tim Hartnell, 

London, 1984 


Tim Hartnell is the author of more than 30 books on microcomputers. Recent works include 
GAMES BBC COMPUTERS PLAY (Addison-Wesley/Interface, 1982), THE GIANT BOOK OF 
COMPUTER GAMES (Fontana, UK, 1983 and Ballantine, USA, 1984) and PROGRAMMING YOUR 
ZX SPECTRUM (Interface, 1982). He is currently involved in writing a major book on the Sinclair QL 
computer. 



INTRODUCTION 


In this book you will find an exciting collection of games for your 
Commodore 64. 

Arcade action can be found in games such as GHOSTIE and 
ASTROSMASH, which use the sprite graphics and sound 
generating capabilities of your Commodore 64 to the full. 

LEAPER will provide you with many hours of fun. This game 
features programmable characters, great sound and nine levels 
of difficulty. 

We have also included several simulation games. You will have 
the opportunity to command the 11th Fighter Group, Royal Air 
Force, during a critical two-week period in September, 1940. 
Can you win the Battle of Britain? 

Your management skills will be tested to the full as you attempt to 
run SUNNYBROOK FARM in the face of a harsh economic 
climate. 

We have had a great deal of enjoyment putting together this 
collection of games and hope that you will gain as much pleasure 
from playing them. 

When typing in the programs, read each line carefully and make 
sure that you enter it exactly. It is always a good idea to SAVE a 
copy of the program as soon as it is finished and before you RUN 
it. This is especially so in the case of moving graphics games 
where a typing error can cause the system to crash or the 
keyboard to freeze, thereby losing the program. 

After typing in a program, a debugging session may be required 
to track down any errors which may have occurred during the typing 
stage. Running the program and fixing the errors as they appear 
should be sufficient, but if the program doesn’t seem to be 
running correctly, it may be necessary to go through it line by line, 
comparing it to the original program in the book. A simple error, 
such as leaving out a semi-colon or leaving a NEXT off the end of a 
FOR/NEXT loop can cause untold havoc in a program! 
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Where possible we have included REM statements to explain 
control characters, graphic characters and any other items which 
may cause confusion in the listings. Unless you particularly wish 
to leave them in, it is best to drop them from your version of the 
game. We have also spaced out the statements and command 
words to make each line easier to read. You may also find it 
better to leave out the spaces and close the lines up. These 
alterations will make the programs run more efficiently. 

Following this introduction is a full list of the control characters 
and graphics characters along with the symbols which appear in 
the program listings. 


Robert Young, Roger Bush 
Geelong, Australia, 1984. 
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LEAPER 


Leaper is an exciting game which uses programmable characters 
to produce a fast-moving graphics game which requires a high 
level of skill to play successfully. 

The object of the game is to control a bouncing man and break 21 
balloons in the shortest possible time. The man jumps up from 
platforms near the bottom of the screen and can be made to jump 
straight up, left or right and hecan be moved slightly to either side 
while he is in the air. 

There are two listings for this game. The first one is for a joystick- 
controlled game in which the man is moved left and right. If you 
don’t use the joystick to bounce the man straight up in the air 
from time to time, he will bounce lower and lower until he 
eventually stops. The second version of the game is for keyboard 
operation. In this version the “A” key and the “D” key move the 
man left and right respectively and the “W” key makes him leap 
straight up. 

There are nine levels of difficulty in Leaper. On each level the 
platforms are placed in different positions and are of varying 
widths. 

At the beginning of the game, you are asked which level of 
difficulty you wish to try. There is also an option for the computer 
to select a level at random. After entering the level you require, 
there is a short delay while the character set is defined. The 
screen will then clear and be set to black with several platforms 
and a number of balloons floating in the air. The leaping man 
enters from the left hand side of the screen and jumps off the top 
of the platform. The game is on and it is now up to you to control 
the leaper. 

Lines 10 to 12 PRINT the title screen and ask for the level of 
difficulty. Line 13 sends the program to the routine in lines 500 to 
570. This routine takes the character set out of the ROM and 
POKES in the programmable characters. Line 14 clears the 
screen and calls up the routine in lines 600 and 601 which 
initialise the sound values. 
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Lines 15 to 20 call up the required level of difficulty and PRINT 
the platform on the screen. You will see these statements as rows 
of the the letter “D” in the program listings. They appear on the 
screen as a solid platform. Line 25 then PRI NTs the balloons into 
randomly-selected locations. Line 26 then calls up the routine in 
line 250 to 280 which sends the leaping man out onto the screen. 

Line 30 POKES a blank space into the last location occupied by 
the man. This gives the effect of continuous movement and 
prevents more than one leaper from appearing on the screen at 
the same time. 

Thfe joystick (or keyboard) input is read by line 31. Line 32 calls up 
the sound routine which providesthe'beep’.This routine is in line 
620 to 630. 

Lines 35 and 36 control the left and right movement of the man 
while he is in the air. The two lines act on the input and add .1 to 
the value of X. This means that after 10 such value changes the man 
will alter his position across the screen (the X axis). Lines 40 to 44 
control the vertical movement of the leaper. Line 45 checks to 
see if the man has hit the balloon. Line 50 POKES the leaper onto 
the screen and line 52 sets the man’s color. Value one sets him to 
white. You can make him any color you choose by altering this 
value. 

Line 55 stops the leaper from falling off the screen and line 58 
checks to see if he has missed a platform. His jumping height is 
checked and limited in line 60. Variable LMT is the limit to which 
he is allowed to jump. 

Line 90 goes back to the start of the main program which begins 
at line 30. 

The sound of the popping balloon is called up by the routine in 
lines 100 and 105. These lines also POKE the explosion on the 
screen and increment the variable HIT. The character used for 
the explosion is actually an asterisk from the normal character 
set. Used in this way it is very effective. 

Lines 150 to 160 control the direction of the leaper. LD is the 
variable and value one is for left, value 2 for up and value 3 for 
right. These values are used to control the direction the man 
bounces in when he leaves the platform. The values of LD are set 



in lines 210 to 220. 

Lines 180 to 190 PRINT the score after the 21 balloons have 
been burst and the game is over. 

The routine in lines 200 to 220 is called up when the man jumps up 
from the platform. It uses the variable LD to control the direction 
of the bounce. Thestarting routine is handled by lines 250 to 280 
and lines 300 to 315 control the failure messages. 

The platforms for the different levels of difficulty are contained in 
lines 400 to 480 and are put on the screen uses PRI NT statements. 

Leaper is a fun game to play and should give you hours of 
entertainment. The program was written by William Leader. 


i ojrfl leaper joystick vers I oh 

i O ' POKE53281 ,7 : P0KE53288,7 • PR I NT" 

Hlft»»»iWHRT LEVEL < 8~9/8=RNB > ???" 

H GET R$ : IF R$-" " THEM 11 : REH CLP SEEN BONN 
ORSR BLUE RIGHT ORSR 

12 R-VRL < m NIF R< 1 THEN R- I NT < 9#RND (1)) +1 
j 3 00SI IB 800 ' GOTO 5001 

14 P RIM T'' n?I?Mi!!M*(D!!M?I€s?!" ; 0 0 S !J B 6 0 0 : R E M 0 L R 8 0 R N 
BONN ORSR 

I e; p n P T~1 T0 38 : PR J N T : NEXT 

28 ON R GOTO 480,410,420.438,448,450.460,478, 
488.498 

25 FOR 1 TO 38 : POKE 1824+1 NT < RHB < 1 > *488 > , 5 : 
HENT : POKE 53281,8 : TI"088800” 


3Q POKE’'' 1824+N+40#V) .. 32 

31 JV-PEEK(56328> : FR=JV RHB 16 : JV= 1. 5 -- ( JV RNB 15 > 

32 POKE' S+4,32'OOSUB 628 

35 IF !V=4 THEN X»K~.1 

36 IF JV=8 THEN X=X+!1 

48 IF B».1 THEN 158 

41 IF B*! THEN V»V+1:CN*t 
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43 IF B=1 RNB PEEK< 1824+X■+•48*V>=4 THEN 200 

44 if ]>•--! RNB PEEK<1824+X+40$V> =4 THEN V*V+1 
: B=1 '• !••■!=-1 

45 IE PEEK<1024+X+40*V> =5 THEN 100 
50 POKE 1024- i -X+40*V::i ■ CN 

52 POKE 5529E+X+4i"i^v , i 

55 IF X-d 'or’'x> 39 THEN B=1 : W=-l 

58 IF V>23 THEN 880 

60 IF VO LMT THEN FOR T~1 TO 1 .00 ' NEXT : B= 1 : W =-1 
90 GOTO 80 

100 POKE 1024+X+40*V .■ 42' POKE 53296+X+40$V, 10 : 

HIT=HIT+1:IF HIT>28 THEN 180 
185 GOSUB 650 : GOTO 33 
150 IF LI'= 1 ’ THEN V=V~ 1 : CN= 1 . : GOTO 41 
155 IF LB-2 THEN V=V-~ 1 •/=/•-- 1 : CN=3 : GOTO 41 
168 IF LB-3 THEN V=v-i. : X=X+1 : CN==2 : GOTO 41 
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POKE 5 

3281 ■ 1 : 

POK 

P 

1024 

-X+40*V.. CN 




1 9 1 

GOP! IB 

710:POK 

e’f 


81 ,• 1 

:POKE 532 

80.. 

14 


132 

SOVfiL 

< TI $ V F 

OKE 

5 

O •**!« "7 *7' 

21:PRINT" 

FlfiPMfMPTPMiPlfC 


S’r'OU 8 

COREB 


ii 

; I NT 

<80/100 




188 

REM CL 

R SCRN 

BOHN 

CRSR 

BLUE 




185 

FOR T= 

1 TO 20 

00 : 

HE 

XT •• P 

RINT"M*D®EB0 

VOU 

WANT 


ANOTHER GAME? 

II 







190 

GET fl$ 

: IF A$< 

H 1J 

II 

THEN 

195 




192 

RESTORE:RUN 








195 

IF m<. 

rri. irt 

>"N" THEN 

19 

HI 





I y i 
200 

POKE 1 
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201 

FOR T= 

1 TO 5: 

W= 1 
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JV-15- 
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0 > 
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210 

IE JV= 

1 THEN" 

LB= 

1 : 

LMT=1 

_MT-1.5 ; IF 

L.MT01 

THEN 


LMT--0: 

GOTO 21 
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211 

IF JV- 

4 THEN 

LB= 

• 

GOTO 

220 




212 

IF TV= 

8 THEN 

LB= 

T* • 

GOTO 

220 




215 

NEXT 









217 

LB=1:L 

MT=LMT+ 

.5: 

IF 

lmt: 

>21 THEN L 

MT= 

21 



228 D-~l : LMT-LMT+1 : GOTO 30 

253 PR I NT" RIsMfllPMiTiBIifiB" : REM HOME BOHN ORSR 

251 FOR T=1 TO 1000:NEXT 

255 FOR T-0 TO 5 : POKE1024+T+40#4,0 : FOR 1=1 TO 
108: NEXT :POKE1024+T+40#4,32: NEXT 
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256 priK'F 1024+5+40*4 .< 0 : FOR 1 = 1 TO 1000: NEXT 
260 FORT-4T00STEP-1 : POKE1024+5+40*T,1:FORI = 1 TO 
100: NEXT : POKE 1024+5+40‘4? T, 32 : NEXT 


265 





Z'pp ! 



310 


FOR X=1 TO 100:NEXT 

FOP T=8 TO 4POKE 1024+5+40*T .• 1 : FOR 1 = 1 TO 

100: NEXT: POKE 1024+5+404':T. 32: NEXT 

POKE 1024+5+40*4.. 0: FOR T= 1 TO 1000: NEXT: X=5 : 

v=4:CN=1:POKE1024+5+40*4,32 : B=-1 

POKE 1024+X+48*V,1:LB=3 

PRTNT"isiMflMPlfi "'REM HOME CRSR DOWN 

GOTO GO 

POKE 1 R24+X+4R*V - 6 ' OOP! ?B 670 

POKES3231,14: P0KE53272,21 : PR I NT" TOWMuMsMrTilJ 

FOILED OFTER ONL..V GETTING 


31 


2 REM Cl. 

cr DOT!,IT 


,.R 


":PN 


HIT, 


BLUE BONN CRSR 


BALLOONS" : GOTO 


40O 
410 
4. op 


185 

PR I nt " SIBBBBBBBDBBBBBBBDBBDDDBBBDBBBBDDBDBDB 
DBD":GOTO 25:REM IT GREEN 

PR T NT "IIDBDDDDDDDDDDDD DDDDDDDDDDDDD 

DDD":G0T025 


pp T piT !l 


i" : GOTO 


425 REM USE ABBREVIATION FOR PRINT OR LINE 
WON'T FIT "T=UP CRSR 

430 PR I NT" 1 EiDDDDDDI)DDTT7TTTTTDDDDDBBDDDDDDDDDDD 
D W?MP!l«PM?ttiDIiDDDDDDD " : 00T025 
440 PRINT"!! DDDDD DDDDD DDDDD DDDDD DDD 
DDD ":G0T025 

450 pR I nT" 1 rTT ' TTT T ITT T T TDDDDI)3Mt!M0DDDDJMiMSMBDDD 
BDDBDBBDBBDBBDTTTTTT; 


451 PR I NT " BBBBDTTTTDDBBBB" : G0T025 

460 PR I NT" ilBBBDBBBDBBBBDB' 1 1 nTITI HUT T"! T7TTDBD 

D D D Ii D Ti ^ ’ ’; 

46 1 PRI NT "DDDDDDDDDDDDDDDD": G0T025 


470 print "IIBBBBDBBDDDDDBBDBBB 
DDDD"• 

47 1 op i nt " 


li 





480 PR I NT " ■rTTTTTTTTTl BBBBBBBBDBDDBDWWiMiilDDB 
nI'DrIDT.iDDDDIIn" • G0Tn 25 

500 poke 58334, PEEK (. 56384 > RNB254 : POKE 1.. PEEK (. 1 > 
RHB251 • EQR 1=8 TO 63 : FOR J~ ; 0 TO 7 

505 POKE 12283+1 *8+J , PEEK (53248+1 $8+J > : NEXT : NEXT 
:POKE 1.PEEK(1> OR 4 

518 POKE 56334,PEEK(56334) OR 1:POKE 53272, 

(PEE K (53272) R N D 248 > + 12 

512 FOR CH=8 TO 6 : FOR BV=8 TO 7 : READ R:POKE 
12288+ < 8#CH > +BV, R 

0!^ ! T 44 PVT 

550 BRTR 24,24,60,102,153,24.24,60,153,38,68,36, 
24,36,66,123 

555 BRTR 12,12,248,44,58,72,132,123,36,36,62,184 
,184,68,66,193 

568 BRTR 8,8,0,255, 255, 0,8,8,68, 126,126, 1.26, 126, 
126,68,24 

565 BRTR 24,24,36,36,60,68,195,123 


500 pop j :-:0 to 24 : POKE 3, L ' NEXT : POKE 8+5 - o : POKE 
3+6 , O : POKE 8+24 ,15: SO” 1 00 : |,|= 1 
601 RETURN 

S29 HF=HF+W : IF HF<1 THEN HF~1 

625 POKE 8+5, 1.5: POKE 8+6,54: POKE S+l, HF : POKE 


630 RETURN 

650 POKES+4,32:POKES+5,15:POKES+1,40:POKES, l 00: 
F'OKES+4,129 ; FOR T=1 TO 30: NEXT 

678 FOR L=0 TO 24 : POKE S+L, 8:NEXT:POKE 3+5 , 20 
671 POKE*3+24;15. 

675 FOPT~20T080 : F'OKES+4,32 : POKES+1, T: POKES, T+20 
:POKES+4,33 : FORI=1TO10 : NEXT : NEXT 
680 FOR T=1 TO 50 

685 I FT/15=INT(TX15)THENPOKES+4,32 : POKES+1,28 : 
POKES, 58 : POKES■•i-4,33 : POKES+5 '■ 15 
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700 RETURN 

7'] p| “HR ! ~'~1 TO "■ ■i : PfikT C+i . R : WRVT 

720 POKE S+3,2 ' POKE S+5, 41 : POKE 6,83: POKE 8+1 4 , 
117■POKE S+18,16 : POKE 8+24,147 

-07 PRRTi FP , TlP : T F PP^fl THEN PET! IPK.| 

730 p n K E 2+4 ■ 6 5 • E 0 R T-~ 1 T 0 TR *: r Q=p R+P E E K (9+2 7 > •••' 2 : 

HF=IHI< FQ/256> : LF=FQflND255 
749 priKE S+8 , LF: POKE S+1. HP : NEXT : POKE 8+4,64 : 
GOTO 725 

300 TjpTj-i 4317.2,5108, 2,5407, 2,8533,4,5407, 2 , 
8583 .■ 4 

805 TiflTR 5487, 4,3583, 12, 9634,2, 10287,2, 103 \ 4, 2, 


310 BhTh 9634,4, 1 0314,2,8583,2,9637, 4 ,8583,12, 
0,01 

800 Pp 1 HI " 1 $ EE N TER LEVELS 

":p:RETURN 

010 pp;-,-; ;“L.R 3 CRH TO UN OR SR RIGHT 0R9R RET 


I REM LEFiPEE KEYBOARD VERSION '#<¥■*■ 

1 0 “ POKE53281,7 ' P0KE53288, 7 : PR I NT" ZimmmmMfoEi 
i»Mii»WHflT LEVEL < 8-9/8=RND > ??? " 

II GET FILE m~"" THEN 1 l- REM CLR 3CRN DOWN 
ORSR BLUE RIGHT CRSR 

1 2 R=VfiL< fit > : IF R< 1 THEN R=I NT 9*RND < 1) ) +1 

13 OOSUB 900 :GOTO 588 

14 pp I i-.it 11 : G08UE 680 : REM CLR 8CRN 

DOWN CRSR 

15 FOR T=1 TO 38 : PRINT : NEXT 

20 OH R GOTO 488,418,428,438,448,450,468,470, 
488,490 

25 FOR L~1 TO 38 = POKE 1 @24+1 NT (RND <1) *400 >, 5 
NEXT:POKE 53281,8:TI$="000088" 
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26 GOTO 250 

3 O P 0 K E C 102 4+X •+ 4 0 * V , 3 2 

31 TV-PEEK! 197) : FR=!6 : IF JV=64 THEN FR=10 

32 POKE 8+4,32 : 008UB 620 

35 IF T 7=10 THEN X=X-,1 

36 IF jy~=i3 THEN X-X+, 1 

40 TP Tf=-4 THEN 150 

41 IF 5=1 THEN7=7+1:CN=i 

43 IF 0=1 AND PEEK C 1024+X+40$V> =4 THEN 200 

44 IF D=-l AND PEEK<1024 +X+40#7>=4 THEN 7=7+1- 
B =1 : W --1 


45 IF PEEK11024+7+40*7)=5 THEN 100 
50 POKE >: 1024+X+40*V> , CH 
52 POKE 55296+X+40*V ■ 1 


55 IF NCI OR NT39 THEN D--1:W*-1 
50 rp y''--22 THEN 300 

60 IF VC!IflT THEN FOR T=1 TO 100:NEXT: D=1 : W=~l 
90 GOTO 38 


100 


POKE 


1024 + 


+48*V,42:POKE 55296+X+40*'V,10■ 


HIT=HIT+1 : IF HIT>20 THEN 180 
105 GOGUT 650:GOTO 30 
150 IF L..T)=1 THEN V=V-1 : 0N=1 : GOTO 41 
155 IP LT=2 THEN 7=7-1:X=X-1 : GN=3 ; GOTO 41 
160 IF LI)=3 THEN 7=7--1 : X=N+1 : CN=2 : GOTH 41 
180 POKE 53281,1-POKE 1024+7+40*7,CN 


1.81 GO GUI 


’ 10:POKE 53281,14:POKE 53280,14 


185 


SC=VRL < TI $ > • POKE 53272,21 ■ PR I NT" PlPlBlslifUilPMsMfl! 

3V0U SCORED " I NT < SC ) X100 

REM CLP SCRN TOWN CRSR BLUE 

FOR T=1 TO 2000 : NEXT ' PR IHT^"‘iPJfMSSDO VOU WANT 

ANOTHER GAME?" 


190 GET fit •' IF A$<>"7" THEN 195 

192 RESTORE : RUN 

195 IF R$0"H" THEN iso 

197 END 

200 P 0 K E 1024+X+40* < V-1 > . 0 : V=V •-1 
301 FOR T=1 TO 5 •' W= 1 
205 JV=PEEK i 197 > 

210 IF .TV=9 THEN LB=1 : LMT=L.MT-~1.5 : IF LMTCl THEN 
L M T=0:0 0 T0 220 

211 IF ,17=10 THEN L.D=2 : GOTn 2?0 

212 IF JV=18 THEM LD=3:GOTO 220 
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215 NEXT 

217 LB=1 : LMT=LMT+„5 : IF LMT>21 THEN LMT=21 
228 B=-T :LMT=LMT+1 : GOTH 28 
258 PRINT"^€d®!l«trif!BDBri r ': RFM HOMF BONN CRSR 
251 FOR T =1 TO 1800:NEXT 

255 FOR T~"8 TO 5; POKE1024+T+40*4,8: FOR 1 = 1 TO 
100: NEXT : POKE 102'4+T+40*4.. 32 ; NEXT 
250 POKE 1824+5+48$4 .■ 8 : FOR 1 = 1 TO 1000: NEXT 
268 FORT=4TO0STEP-1 : POKE1824+5+40*T.i:F0RI«1T0 
180:NEXT:POKE1024+5+48*T,32:NEXT 
261 TOR 1=1 TO 180:NEXT 

265 FOR T=8 TO 4:POKE1024+5+40*T,1 : FOR 1=1 TO 
100:NEXT:POKE1024+5+40*T,32:NEXT 
278 POKE1024+5+48*4,0:FOR T=1 TO 1808:NEXT:X=5 : 
V=4 : CN= 1 'POKE 1024+5+40*4,32: B--1 


275 poRE 1824+X+48*V,1:LB=2 

277 PR I NT" SMpMpIsI . " : REM HOME CRSR DOWN 

288 GOTO 28 


208 POKE 1024+H+40*V,6 : GOSUB 678 
310 P0KE53231,14:P0KE53272,21 : PRINT" 


zemamm 


V0!J FAILED AFTER ONLV GETTING "; 

312 REM CLRSCRN BLUE BONN CRSR 
315 PRINT HIT;" BALLOONS": 

GOTO 185 

408 PR I NT " IIBBBBBBBDBDBBBBBBBBBBBBBBBDDDBBBBBBDD 
HDD": GOTO 25: REM j_T GREEN 
41 0 PR I NT" IIDDBBDDDDBDDDBB DDDDDDDDDDDDD 

DDD":G0T025 

420 PR I NT" If I nTHTIDDDDBBDDBIi PMSPMflWlslIiDDDDBDBDD 
DDBBBBDBBTTTTTTTIDDDDBDBDDB": GOTO 25 


425 REM USE ABBREVIATION FOR PRINT OR LINE WON'T 
FIT 'H"=UP CRSR 

438 PR I NT" iEiBBBBBBBBB'TTTTTITTDBBDBBBDBBBBBBDBBB 
D:?M?I?M?Mi5©BBDBBBBBB": G0T025 
448 PRINT"II BBBBB BBBDD BBBBB BBBBB BBB 
BED ":G0T025 

458 PR I NT" If 11 T777TTTTT1BBBBBMfteMDBBBDSMPMflPlIiDBD 
BBBBDBBBBBBBBBTTTTTl"; 

451 PR I NT" BDLBBTTTTDDBBBB" : G0T025 


15 











PR I HI" IBBBBBBBBBBBBBBITrTTTmTmTTTTTTTBBBB 
IIB n D ri ;pftai?Mi5Mi!MPleMiM?MPMW'' 

PR I NT " BBBBBBBBBBBBBBBB " : G0TQ2S 

PRINT "IBBBBBBBBBBBDBBBBBBBBBBBBBBBBBBBBBBBD 

BBB"; 

PR 7 NT " ’ 1 

PR I NT" IT'T’TTT'TTT’TTT'T’CiBBBBBfciiftiiftMilftMttiflBBBBBB. 

PR I NT « iriTTTTTTIT"]' BBBBBBBBBBBBBBMii»ii**»CiBB 
BBBBBBBBBBBB" : GOTO 25 

POKE 56334,PEEK(56334> RNB254 : POKE1,PEEK ( 1> 
RNB251:FOR 1=0 TO 63•'FOR J=8 TO 7 
POKE 12288+1 *8+J, PEEK < 53248+1 #8+J > : NEXT •• NEXT 
•'POKE l.PEEKd) OR 4 

POKE 56334.. PEEK i 56334 > OR i : POKE 53272.. 

(PEEK<53272> flHB 240 > +12 

FOR CH=0* TO 6 = FOR BV=8 TO 7 : RERB Fr POKE 

12283+ < 8#CH)+BV■fl 

NEXT - kip XT 

BRTR 24,24,68,102,153,24,24,68,153,98,60,36, 
24.. 36.. 66.. 129 

BRTR 12,12, 248,44, 58,72,132,129, 96, 96,62, .184 
,t84.63,66,193 

BRTR O O * 0,255,. 255, 8,0,0, 68,. 126.126.1.26.126 . 
126,60,24 

BRTR 24,24.. 36, 36,68,68, 195, 129 
GOTO 14 

FOR L=0 TO 24 ' POKE S,!.... ; NEXT • POKE 8+5,9 : POKE 

3+6,0: POKE 8+24, 15 : 80= 188 •' N= 1 

RETURN 

HF=HF+W : IF HFCl THEN HE=1 

POKE S+5,15'POKE 8+6,54 : POKE 8+1,HF:POKE■ 

8+4*17 

RETURN 

POKES+4,32 : POKES+5,15:POKES+1,48 : POKES,188 : 

POKES+4,129 : FOR T~1 TO 38:NEXT 

RETURN 

FOR L=0 TO 24:POKE S+L,8 : NEXT:POKE s+5,28 
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671 POKE 8+24,15 

675 FORT=20T080■POKES+4,32:P0KE8+1,T : POKES,T+28 ; 

POKES+4,33:FORI=1TO10:NEXT : NEXT 
680 FOR T=1 TO 50 

635 IFT/15=IHT <T/15 >THENPOKES+4,32 : POKES+1,20 : 


POKES, 50 : POKES+4,33 : POKES+5, 15 


.:'Cjj“l I-4EXT 

700 RETURN 

710 FOR 1=0 TO 24•POKE S+L,O:NEXT 
720 POKE S+3,3 - POKE S+5,41:POKE 6,39 : POKE S+14, 
117:POKE S+13,16:POKE S+24,143 
725 PERT FR,DR : IF FR=0 THEN RETURN 
730 POKES+4,65;FORT=1T0BR*2 : FQ-FR+PEEK(8+27)/2• 


740 

g00 


: hf=INT <FQ/ 
POKE S+0,LF 
GOTO 725 


256> : LF=FQfiNB255 
•:POKE S+1,HF:NEXT : POKE 3+4,64: 

,5103,2,5407,2,8533,4,5407,2, 


8583,4 

>05 BfiTfi 5407,4,858 


12,9634 


1020 ' 


10814 


810 
900 


BRTfi 3634,4,10314,2,8583 
0 , © 


3634,4,8583, 


pp I NT " iiHEHTER LEVEL'S 

" R : RETURN 

REM CLP SCRN BONN CRSR RIGHT CRSR REB 


12 , 
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DESCENT INTO CHAOS 


Descent into Chaos is a moving graphics game in which you fly 
your space ship down a long winding tunnel on the planet Chaos. 
The game requires concentration and good reflexes to be 
completed successfully. 

The first listing of the program is for joystick control. You move 
your ship left and right with the joystick, and slow your descent by 
pressing the fire button. 

The second listing is for a keyboard-operated game. In this 
version, the “,” key and the key move the space ship left and 
right. This should be easy to remember because the ‘less than’ 
and ‘greater than’ symbols on the top of these two keys point in 
the direction of travel. The “T” key can be used to slow your 
headlong rush. 

After the title is displayed, the screen clears and is set to black. 
Your space ship, a diamond shape, appears at the top of the 
screen. The planet Chaos and the opening of the tunnel are 
printed and your space ship starts failing into the cavern. You 
must avoid hitting the sides while trying to get your ship all the 
way to the bottom of the tunnel. You have four “lives”. After 
they’ve been used up, you’ll be told just how deep into the tunnel 
you managed to go. 

Beware, the tunnel gets narrower as it gets nearer to the centre 
of the planet. 

The main part of the program lies between line 80 and the NEXT 
in line 180. This is the loop the program goes through as it prints 
the planet and tunnel. 

Line 40 calls up the routine to initialise the sound generator and 
then provides the title display. Line 50 sets the screen to black 
and initialises the variable used to read the joystick (DD). Line 60 
clears the screen and sets up the string S$. This string consists of 
a number of blank spaces used to create the tunnel. 
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Line 70 initialises the value of Q (used to TAB S$ across the 
screen), sets SC to 1024 (the start of the screen memory) and 
gives X the value of 14 (X is used to give your space ship its 
distance across the screen). 

Line 80 starts off our game loop and prints 38 reversed spaces on 
the screen. These spaces appear as a blue bar. Line 85 checks to 
see how wide our tunnel is and, when it reaches two spaces, calls 
up the end routine. Lines 90 to 130 choose a random number and 
use it, along with variable Q, to TAB S$ across the screen. This 
changing value causes the twists and turns in the tunnel. Lines 
110 and 120 are safeguards to prevent the tunnel from running 
off the screen. 

Line 140 uses SC and X to POKE your spaceship onto the screen. 
Line 150 calls up the routine in lines 5000 and 5010 which read 
the joystick input. This line then checks to see if the fire button 
has been pressed and, if it has, adds a short delay which slows 
down the game. Lines 155 and 157 act on the input by altering 
the value of X. 

Line 170 checks to see if you have collided with the side of the 
tunnel. If you have, line 1000 increments variable H, which 
counts the number of collisions. Lines 1010 to 1030 provide the 
sound of the crash. Lines 1050 and 1060 check to see which side 
of the tunnel you have hit and move your ship back into the centre 
to continue the game. 

Line 180 increments the variable M, which is used to keep a 
record of how far down the tunnel you manage to fly. 

After the RR FOR/NEXT loop has run through, the rest of line 180 
subtracts one space from the string S$. This makes the tunnel 
narrower. We then go back to line 80 for another cycle. 


10 REM BESCtHT 
28 REM ### JOVSTIC 


[HJU UHHUo $$$ 

: version"##* 


4U uUbUB 1 fc'tJti' UUoUB 1 
58 POKE 53230,0:POKE 
60 PRINT M":S$="n 


1,0 : DB-=56 


0 


W 









65 REM CLR SCRH UP CRSR 8 SPACES 

70 Q=7 : 30=1824:X=14 

80 FOR RR=1 TO 200 -PRINT " “R 

82 REM REV ON BLUE 33 SPACES 

85 IF 3*=".l " THEN 150O : REM UP CRSR 2 SPACES 

S0_Z=RNBQ > 

110 IF Q>24‘THElGl~24' 

120 IF Q<=4 THEN 0=4 
130 PRINT TABC0+3> $■$ 

140 POKE SC+X, 98 : POKE SC+54272+X, 1 
150 X1~X ; G0SUB 5080: IF FRO 16 THEN FOR TTh=j Til 
308:NEXT 


155 

IF JV 

=4 THE!-- 

XX - 

•1 









l J i 

IF Jv 

=8 THE!'- 

X ON 

.u 









170 

IF PE 

El< (G OF 

+ 40 > s 

1 P 0 

T 

i 

MEN 

1C 

300 





180 

1=41+1 

0 : NEXT ; 

ST=4_E 

.FT? 

( c 

(L 

B 

C S-'l 

*;i . 

1 ) > 

:GOTO 80 

1 808 

H=H+ 

A 

l 











1010 

POKE 

VO,15: 

POKE 

rlD.« 

17 

: POK 

'E 

r~, 

;*r , 

16 

4 : F 

OKE 

WF, 


33:POKE HF, 

3: POK 

L 

F, 

155 







1 3 v 

FOR 

TD=1 TO 

500 : 

HEX 

T* 

TB:POK 

E V 

0, 

3 : P 

OKE 

WF, O 

1030 

FOR 

TD-1 TO 

i yyj ; ^ 

: NE 

XT 

TB: 

T r* 

x r 

H= 

4 

THEN G 

OTO 


1208 












1050 

IF P 

EEK<SC+ 

1 i \ 

1 l ir««i » # 

32 

THEN X 


c. 

GOT n 

107 

i~! 

1 060 

x—x* i- 

CL 










1 070 

GOTO 

1 ;‘-"j i"\ 











1 200 

PRINT :PRINT 

TAB 

C 1 

0) 


KKD0 

m 

:M-¥ 

m 

GAME 


OVER 

mm " 











1205 

REM 

ORANGE 

DOWN 

CRS 

R 








1210 

PR IN 

T TAB <2 

) "JOi'OU 

r» 

r 

ENETRF 

i'TEB 

ii • 

M/1 

000 

; 


"KILOMETRES 

INTO 

<( 









1215 

REM 

BONN OR 

SR LT 

BLUE 








1220 

PR IN 

T TAB (9 

> "IICi'HE 

**r 

UNNE 

j C 

: OF 

Q 

HflO 

Cj S» 


1225 

P P h*} 

PURPLE 

DOWN 

CRS 

| 








1238 

POKE 

VO, 15 '• 

POKE 

AB, 

15 

'■ POK 

F 

WF, 

17 




1248 

FOR 

Hi=68 T 

0 20 

STE 

P 

• rrr 

OF 

: Li 

=2 

50 

TO 

10 


STEP 

-5 











1250 

POKE 

HF, HI : 

POKE 

LF, 

LI 

: NEX 

T ■ 

! ' 

NEX 

T 




1260 

POKE 

VO . 0 : p 

OKE W 

F, 0 









1270 

FOR 

TB=1 TO 

1 @00 

: HE 

XT 








1280 

POKE 

0 x y y.« 

1 1 : PO 

KE 

3 0 

2S l, 

& ■ 

PRINT 
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1 OOP; 

PRINT TAB (18) " 

’pM-S 

12:95 

REM DOWN CRSR 


1388 

GET AT : IF AT-"" 

TH 

1318 

IF AT-"V" THEN 

RUN 

1328 

IF R$=j“N" THEN 

END 

1338 

IF A TO"V" RNTj 

AT< 

1 500 

PRINT "3" 



i alo 
1530 


1540 


1535 REM CI....R SCRH 

1. 51 0 POKE VO, 15 ■ POKE AD, 1 7 : POKE SR , 32 : POKE WF , 
17 

H1 = 1 NT < 2.mRm (1 ) +2 > : L. 1 = I NT ( 40#RND < 1'? +10 > 
POKE HF, i-! 1 POKE LFL1 : FOR TD=1 TO 50: NEXT 
TD 

SS=S3+:i : IF SS>3 THEN SS“0 • POKE VO, 0 : POKE 
WF,8:GOTO 1568 
1550 GOTO 1528 
1568 


i ■ J i >■-) 


4 rr —tT 

l -J i Tj 

1598 

1680 

1685 


PR I 

NT TRB(1 2 ) 

"UKWJSnWEL-L U 

REM 

DOWN CRSR 

V EL. LOW 

PR I 

NT tab(4> " 

jfr'OiJ MADE IT 

OF 

THE" 


REM 

DOWN CRSR 


REM 

DOWN CRSR 

ORANGE 


GOTO 1210 
PRINT”:']" 

REM CLP. SCRH 


1c 

;i0 

VO-5 

4236 : 

flB-54 

—i « r* m i p j **«n 

t* o • 44 f c 

:WF-54276 





HF=5 

4 : 

LF=54 

1 C. 




11 

"00 

RETU 

RN 






•j 

500 

ri p 

-j- j 1 rr-Jj 11 . 

crpM 

POKE 

53230,11 : POK 

!E 53281,14: REM 

It 

310 

L- L. l 
jjf! CM 

B 285 

10: PR I 

NT "isMsiMcMi!©: 

tel" : PRINT 

TAB 

C10 > 



"DES 

CENT 

INTO 

CHAOS" 




.1 C 

315 

REM 

HOME 

DOWN 

CRSR 




11 

520 

GOSU 

B 201 

9 : PR I NT " MsiBiaMsiMsI 

M" :PRINT 

TAB 

(10) 



"DES 

CENT 

INTO 

CHAOS" 




11 

530 

ij U y 1J B 0 'd 

:0 : PR I 

NT " SftKMiiiMeW 

tel" - PRINT 

TAB 

( 1 0 ) 



"DES 

CENT 

INTO 

CHAOS” 




•t r 

540 

POKE 

VO, 1 

5 : POK 

E AB,17:POKE 

SR, 132:R 

OKE 



WF, 33 

1350 Hi-100:Ll-200 

I860 POKE HF.Hi:POKE LF,LI : FOR TD*1 TO 125 GHENT 
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iS70 Hi=Hl~5 : Li“Ll-10 : 


=XX+1 : IF XX*17 THEN 


POKE VO,0:POKE WF,8:RETURN 


1880 

2808 

281.8 

2820 

5000 

5810 


GOTO 18 

68 






FOR TD* 

1 TO 

508 

NEXT: 

PRINT 

"Ml" 

RETURN 

FOR TD* 

1 TO 

588 

NEXT: 

PRINT 

!i nan 
urn 

RETURN 

FOR TD* 

1 TO 

588 

: NEXT: 

PRINT 

11 f 

RETURN 

JV-PEEK 

C DD ) 

: FR=.. 

TV AND 

1 16:. TV 

= 15- 

- < TVAND1 


10 REM ##* DESCENT INTO CHAOS ### 

20 REM *#* KEYBOARD VERSION *** 

40 GOSUB 1688 : GOSUB 1808 

58 POKE 53280,0--POKE 53281,0 

60 PRINT "IT : ST=""I 

65 REM CL..R SCRN UP CRSR 8 SPACES 

78 0=7 ■' SC* 1824 •' X= 14 

88 FOR RR=i TO 200 : PRINT "SB 

82 REM REV ON BLUE 38 SPACES 

85 IF $$="1 " THEN 1580: REM UP CRSR 


yy Z-RI- 


1) 


it 


SPACES 


180 Q=Q+ <. 7<, 5 ) - 2>=. 
110 IF Q>24 THEN Q*2 
120 IF Q<~4 THEN 0=4 
138 PRINT TAB(0+3> S 
148 puke sc+x,y0 ; PuK 
150 X1=X:KI-PEEK<197 


■j 

4 

$ 

E 


SC+54272+X, 1 

IF K.I =22 THEN FOR TB=1 


TO 


380:NEXT 

155 N ; ~X+ < KI. =47 > -• < KI =44) 

170 IF PEEK(SC+X+40> = 160 THEN 1000 
188 M-M+10:NEXT:ST=LEFT$<S$,<LEN < ST>-1>>:GOTO 80 
1008 H=H+1 

1018 POKE VO,15:POKE AD,17:POKE SR,164:POKE 
WF,33:POKE HF,3:POKE LF,155 
1820 FOR TB--1 TO 500: NEXT TD ; POKE VO, 8 = POKE WF,8 
1830 FOR TD=1 TO 1080:NEXT TD:IF H=4 THEN GOTO 
1200 

1058 IF PEEK<SC+X-2> =32 THEN X=X-2: GOTO 1878 
I860 X=X+2 
1070 GOTO 180 
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1209 


1205 

1210 


1215 

1220 


1240 

1250 

1269 

1270 
1288 
1285 
1290 

H 

1300 
1310 

1329 

1330 
1 500 
1505 
1510 
1520 
1530 
1540 

1550 


1570 


1 rr-yr.- 
i. •_< i • J 

1 530 
1539 
1 600 
1695 
1610 

1790 


PRINT "T: PRINT TABOO) GAME 

OVER ####" 

REM CLR SCRN ORANGE DOWN CRSR 

PR I NT TAB < 2 > " OTr'OU PENETRATED"; MX1899; 

"KILOMETRES INTO" 


REM DOWN CRSR LT BLUE 

PRINT TAB<9) ‘HflTHE TUNNELS OF CHAOS" 

REM PURPLE DOWN CRSR 

POKE VO,15 : POKE AD,15:POKE WF, 17 

FOR H1“69 TO 29 STEP -2:FOR LI=250 TO 10 

STEP -5 

POKE HF,HI:POKE LF,LI:NEXT:NEXT 

POKE VO,0:POKE MF,0 

FOR TD=1 TO 1000:NEXT 

POKE 53280,11: POKE 53281,6 = PR I NT " □'* 

REM CLR SCRN 

PRINT TAB<10> "WsMp.IpFiNOTHER GAME <V/N>" 

REM DOWN CRSR 

GET AT : IF AT="" THEN 1380 

IF AT="V" THEN RUN 

IF AT="N" THEN END 

IF A TO" t " AND A TO" H" THEN 1300 

PRINT 

REM CLR SCRN 

POKE VO,15:POKE RB,17:POKE SR,32:POKE UF, 17 
H 1 = I NT ( 20#RHD ( 1 > +2 > ’• L 1 = I NT ( 40#RND < 1 >+ 10 ) 
POKE HF,HFPOKE LF, LI : FOR TD=1 TO 50:NEXT 
SS=SS+1:IF SS>8 THEN 8S=©:POKE VO,0:POKE 
WF,0 : GOTO 1568 
GOTO 1520 

PRINT TAB<12> "MSWSiWELL DONE!!" 

REM DOWN CRSR YELLOW 

PRINT TABOO "mill MADE IT TO THE BOTTOM 


OF THE" 


REM DOWN CRSR 
REM DOWN CRSR 
GOTO 1218 
PRINT"!!" 

REM CLR SCRN 
VO=54296:AD=5 


ORANGE 


3R :: 


>4277 


WF=54! 


b : 


HF=54273:LF=54272 
RETURN 
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1800 PRINT"IT :POKE 53288,11=POKE 53281,14:RE 
CLR SCRN 

1818 GOSlffi 2000 ■ PR I NT " SlsMPMiMsftM 11 : PR I NT TflB < 10 > 


"DESCENT INTO CHAOS" 

1815 REM HOME DOWN CRSR 

1820 GOSUB 2010 : PR I NT " SMtllsKMM" : PR I NT TAB < 10 > 
"DESCENT INTO CHAOS" 

1838 GOSUB 2020 ■ PR 1 NT " : PR I NT TflB (10 > 

"DESCENT INTO CHAOS" 

1840 POKE VO,15 : POKE AD,17=POKE SR,132:POKE 
WF, 33 

1350 Hl“100:1.1=200 

I860 POKE HF,Hi:POKE LF,LI : FOR TD=1 TO 125 : NEXT 
18'’• 0 H1 -H1 -5: L1 =L 1 -10: XX=XX+1: IF XX= 17 THEN XX~8 
POKE VO, 0 : POKE WF, 0: RETURN 
1880 GOTO I860 

2308 FOR TD“i TO 500 : NEXT : PRINT "TS": RETURN : 

REM RED 

2010 FOR TB=1 TO 500 : NEXT : PRINT "3":RETURN: 

REM BLUE 

202O FOR TD--1 TO 580: NEXT: PRINT "i": RETURN: 

REM BLACK 
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FIRE 


Fire uses the sprite graphics of the Commodore 64 to produce a 
great ‘Invaders’ type game. 

The alien invader moves across the screen dropping bombs on 
you. Each time he reaches the edge of the screen he drops down 
to the next level before coming back the other way. If one of the 
bombs hits your fire base, or if you let the alien craft get down to 
your level, you will be blown up and, of course, lose the game. 

Use the “J” key and the “K” key to move your fire base left and 
right respectively. The “F” key fires your missiles. 

To destroy the alien space craft you must hit it dead centre. 
Hitting the alien ship on the hull will score you points but won’t 
blow it up. Each time you destroy an alien ship it will be replaced 
by another one, which will move more quickly across the screen. 
Each time you blow up an alien ship and advance to the next level 
a new moon will appear in the sky. The number of moons 
indicates the level at which you are playing. 

There is also a feature which gives you the option of playing with 
a background of mountains or in the blackness of space. 

The program uses a very clever countdown routine to provide a 
touch of excitement to the start of the game. 

The variables X and Y are used for the screen coordinates of your 
fire base and SX and SY are used to move the alien craft. 

Fire was written by Daniel Quinn. 
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1 

DIM Si 

< 33 > ; V =532 

48 : HI "8 : X$""MO ONE " 


RESTOR 

E : GOSUB 38 

“10 : F'OKF 53280 ■ 0 : SC =0 

•J 

BATA 1 

, 2 . 2 , 2 .. 2 • 1 

3 , 3 , 3 , 3 :REM THIS 

4 

BATA 1 

j 2 d 2 2 .< 1 

, 2 , 2 , 2 , l:REM BATA 

rr 

.j 

BATA 1 

, 33 .« 3 ,• 3 / 3 

, 3 , 3 , 3 , 3 :REM IS 

12 

BATA 1 

, 4 , 4 , 4 , 4,1 

, 2 , 2 , 2,1 = REM FOR 

"7 

BATA 1 

, 4 , 4 , 4 , 4,1 

, 3 , 3 , 3,1 : REM THE 

o 

BATA 2 

. 2 , 2 , 2 , 2,1 

, 3 , 3 , 3 , 3 :REM COUNT - 

9 

BATA 1 

, 3.« 3 .* 3 .• 3 .< 1 

, 3 , 3 , 3,1 '• REM BOHN 

L 

0 BA ! A 

1 .• J .• J .• O j -J.» 

1 , 4 , 4 , 4,1 

11 BATA 

nr r ~ rr tr rr 

.J .» . J ,i .J ....i .« . ,J .. 

tr ir c ir c -j •-> •“ ■“;> ~ 

1 

7 X ” 175 

'• V ~ 135 • P = 1 

95 : SV - 58 : SP=SV : SM = SX : M =0 : N « 


SE =1 



cL 

3 FOR F 

=1 TO 78 : K 

= INT(RMB < 1 )* 15 >: PRINT SPG < K 


\\ ! 1 • 

.* u J 

: NEXT A 


2 

4 IF EG 

=0 THEM FO 

R A = 0 i TO 39 : READ S 1 < A > : NEXT 


GOTO 41 



FOR A=0 to 

o 3 


26 

READ Vi:SI 

< A)=V1 


id l 

FOP E=V1 Ti 

0 19:POKE 

( 55296+fl+4 0 # £ '■) , 12 

i*^i 

POKE ( 1024' 

i-Fl+40TB >, 

33 

3M 

MFVT 




P»J K E i m 2 4 i "i :i \‘ y $ V s 1 

, 100 

48 

NEXT 



41 

POKE 1164, 

81: poke 

55436,7 

92 

BA 1 A 13,14 

, 15,16,17 

, 16,14,13,12,11,10,9,8. 


r’ .< r’ .« r* .* a •' y 

10,11,11, 

■ 12,13,13,14 

93 

DATA 14,14 

,13,12, 11 

,11, 18,9,9,8,7,6,7,8 


ISO V-53248 

130 POKE 2841,15:REM S-l=ALIEN BOMB 
140 POKE 2842, 13: REM s-2=ALIEN 
150 POKE 2043,14:REM s-3*V0UR BASE 
168 POKE 2844,15:REM 3-4=YOUR MISSILE 
178 POKE 2045,11 : REM S-5=EXPL0SI0N 
200 FOR N-0 TO 62: READ q : POKE 832+H, Q ’■ NEXT : REM 
POKEIHO DATA FOR ALIEN 

218 BATA 8,8,8,8,98,8,8,255,0,1,129,123, 15,255, 
248,56,8,28,127,255,254 
228 BATA 79,231,242,96,8,6,100,146,86,48,8,12, 
15,255,248,15,68,240 

238 BATA 8,219,8,1,16,128,2,16,64,4,16,32,8,16, 

* s~ s. r, -~ t r*i •- o 0.-, 

1 b .* *4 .» O OcL . 1 . .» O L*4 .« .« 
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300 

FOR N=0 TO 62 


POKEIHG DATA 1 

320 

DRTR 0,8,0.0,1 

330 

BATA 1,128,12: 

! j 4 y 

DflTR 1,129,12: 

350 

DflTR 15,0,240 

360 

DATA 33,255,7 


,248,39,189,2: 

370 

DRTR 31,231,2 

O —*! 

FOR N=704 TO 


POKEIMG DRTR 

480 

FOR R=0 TO 62 

410 

DRTR 8,24,0,O 

H-; ;; ;‘ ! : ;1 

IjRTfl 0.. 6S.i 0 . 0 

430 

IiflTR 3, 126,0, 

440 

DflTR 0,68,0,0 

458 

DRTR 8,36,0,0 

460 

DRTR 8,0,0,0, 

‘470 

DFiTfl 0 . 82 . 0 . 0 

4 ! -.3 

POKE V+21,28: 


V+43,14=POKE 

498 

c.rjL--Tr •] •**> • 

508 

I =PEEK < 137 ) "" 

501 

PR I NT" ftilSCORE 

5 1 m 

IF 1=34 THEM 

528 

IF 1=37 AND X 

rr nr 

IF 1=21 AND H 

538 

IF PC 195 AND 

tr ■•**« cr 

. j. "i .. j 

IF PC20 THEN 

540 

IF PM90 THEN 

60S 

IF SXCX-18 OR 

620 

$P=SV ' M=2 : F’OK 

710 

IF M=2 THEN S 

711 

IF SF7220 OR 


V+21,28 

748 

IF 10255 THEN 

741 

IF 7<38 THEN 

758 

POKE V+6,X 

760 

IF PC196 AND 

770 

POKE V+8,L 


r 1 

" 7 *“ 

I i til. 


0=SI#B '• IF Q~2 THEN !>h3 
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775 

TF 

a. 1 

SX>254 THEN S'r 

| c; : 

-! —-* c- - ~ 2 

r r 'ij 

? r~ 

J !”• 

87730 THEM Q=0 

: 87=30 : 

8V=SV+13 

780 

pOI- 

■E V+4,87 : POKE 

V+5,8V 


781 

POI- 

(E V+2..SM: POKE 

V+3,8;p 


Q J~j 

IF 

PEEK < V+30 > * .1.8 

FIND PO¬ 

195 THEN 

7y;[ 

IF 

PEEK( V+90 > = 12 

OR PEEK 

<V+30 > = 2: 


< +3 0 > = 3 0 T H E N 2 0 8 0 


IF Pi 

IEK( V+38’' ,= 20 

OR PFEK 

(V+30 

IF Ft 

£EK(V+30>=10 

OR PEEK 

(V+30 

OR FT 

EEK<V+30>=26 

THEN 20 

00 

GOTO 

850 



POKE 

V+40,2:POKE 

V+21,62 

: POKE 

V+ll, 

' P 



P= 19' 

5 : i_=7 : SF-SV :! 

T=0 : H=0 : 

POKE 


828 FOR Fl=l TO 100 : NEXT : POKE V+21,38 
830 POKE V+44, 1 


.“» rr 

C* • J TJ 

GOTO 50O 

9 *; J 

IF L0S7--2 f 

901 

POKE V+10,L 

902 

FOR Fi=l TO 


POKE V+44.1 


y y 4 

NEXT Fi : POKE '• 

021,14 

907 

80=30+10 


90S 

GOTO 508 


90q 

IF L*SX THEN 

80*80+100 

910 

POKE V+21,0 


911 

PR I NT !l 3" : FOR 

Fi= l TO 30 

912 

REM F:i R F;f:RN 


920 

Q 9 5~j 

IF _ Fi/2= I NT < Fi/ 

•'2> THEN 0 

9 4 0 

POKE 53280.8 


950 

POKE 53281,B 


960 

NEXT 



965 80=80+100 

980 POKE 53280.. 0 : POKE 53281,0 

1000 7= 175 ' V= 195 : P= 3.95 : SV=58: SX=20 : SP=SV •' SM=S7 
M-0 : H=0:Q-0:SE=SE+1 

1001 FOR R=1 TO 70 :K*iHTCRNDa)#15>: PRINT PRO 

<!<); :NEXT fi 

1002 FOR TV*1 TO SE:WE*INT<388#RND<1)+1024): 
POKE I4E, 81: POKE WE+54272, 7: NEXT TV 

1003 81*81+0.5 
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1004 

1005 
1007 
1000 

1009 

1010 
2O00 


2820 
2030 
204y 
2050 



IF BG-0 THEN 1010 

FOP fl—0 TO 39 = FOR B=Sl<fl) TO 19 

POKE (1024+R+40*B),224 

POKE ( 55296+A+40#B >, 3 '■ NEXT 

POKE < 1024+A+40#S 1 ( R > >, 88 '• NEXT 

B=10:GOTO 5R0 

POKE V+210 : PR I NT" IITM®!" : REM CLP YELLOW 
DOWN CR3P 



2085 

2090 


REM THE ABOVE CHARACTER IS CHR$(166> 

PR I NT: PR I NT ; PR I NT SPC < 1 5 >; " SEE AME OVER SB" 


REM RVS ON BLUE WHITE REVS OFF 
2891 PRINT:PRINT TAB<10>;"HI SCORE : ";HI : PRINT 
TABOO) J "HELD BY: ";X$ 

2100 PRT NT" WfiBSI" : REM DOWN CRSR 

2110 PRINT TAB':' 10) ; "ffifYOUR SCORE ";SC:REM YELLOW 

2111 IF SCOHI THEN 2120 

2U2 PRINT TABO0); "i CONGRATULATIONS! ! ! " = REM 
PURPLE 

2113 PRINT TABOO); "!ffr'OU / RE THE NEW CHAMP" : PRINT 
TAB(10);"WHAT IS YOUR NAME"; 

2114 REM YELLOW 

2115 INPUT XT ■•!-!I--SC 
2120 FOR Z=1 TO 500 : NEXT 


2138 

PRINT "rial" REM CLP WHITE 

2140 

PRINT" DO YOU WIS 

H TO:":PRINT 

2150 

PRINT" O). ..END 

GAME" 

X 1 f:fj 

PRINT" <2).- PLAY 

AGAIN" 


GET Kf- : IF VAL (K#)“l 

THEN END 

2180 

IF VAL(KT)=2 THEN G 

OTO 2 

2190 

UUTU ci. 1 F U 


3000 

pp t >• iy u m ?ti 


301 0 

REM 01 p"*SCRN 


2 1 00 

POKE 53288,0:POKE 5 

13281,0 

3155 

PR T NT "71" 


3160 

REM CLR SCRN 
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II 


J5WW 
-•k: !•?!«=: 


3520 
3530 
3540 
J 5 4 5 
"5k0 


3570 

3588 

rrir“ 


3 b 00 
380 1 
3 b 1 0 
3b 15 
3620 


3630 



3701 


•i"i? 


.0 



h$ <i> = M a 
REM REV OH 
i-!$<2>=' "a KiiiiiiW 
REM RIGHT CRSR 
N$ < 3 > = "Sllinillll 
NT < 4> = "a »»»»»!" 
m$ < 5) = "ami mmm." 

FGR 0=9 TO 0 STEP -1 

PRINT•PRINT:PRINT=PRINT:PRINT:PRINT• 

PRINT" si" 

REM WHITE 


FOR 2=1 

T 

O 10 


READ F' 

bp 

TNT TF 

EC15); "2!" 

REM ORA 

NG 

E 


WENT 




PRINT 11 

21" 

: REM C 

I R CORN 

F0P q~i 

T 

0 100- 

NEXT 

NEXT 




FOR Q=1 

T 

0 1 00 : 

NEXT 

PRINT n 

**r«j|J 




REM CLP SCRH 


PRINT■PRINT:PRINT' 
REM VELLOW 

PRINT 

: PRINT" 51" 

PRINT " m 


PRINT " 11. 



PRINT 


!#: xx vA%*: 

PRINT " 11 



ppTKjT 


;*;a ;.v. v.j.v/.j.v.v.j.j.vt;.;.;, 

PRINT:PRINT:PRINT 

TAB< 1 

0);"J..LEFT. 

.RIGHT" 



PRINT•PRINT TAB <12 

i)" 

F..FIRE 

PRINT 



FGR 9=1 TO 30:IF A 

X2=TNT<R/2) THEN C< 

GOTO 3720 




C=0 : B=10 

POKE 53230•C'POKE 53281,E 
WENT 

PRINT " DO VON WANT R BACKGROUND? 

GET Nf- IF N$-"V" THEN BG=1 : GOTO 3743 
IF NT="N" THEN BG~0 : GOTO 3749 
ijijTU 3746 
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3749 PRINT “IT - REM CLP SCRM 
3758 RETURN 
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SKIING 


This program by William Leader gives you the opportunity to try 
out your skills as a downhill skier. 

The program will give you a choice of a slalom course or a jumps 
course to provide variety. The object of the game is to complete 
the course with as few collisions, and taking as many jumps or 
flag gates, as possible. Yourfinal score is based on yourtime plus 
penalties for missed jumps or gates and collisions. So, of course, 
the lower the score the better you’ve done. 

On both the slalom and the jumps course, your skier will appear 
on screen at the start of the game standing underneath the 
starting banner. Use either the joystick or the relevant keys to 
move him into the starting location you require and then press 
the fire button (or the space bar) to start the run. 

On the slalom course, you will be required to avoid hitting the 
trees dotted all over the place and to steer your man through the 
flag gates. You can use the controls to move your skier to the left 
and right and up and down the slope. 

On the jumps course the controls work just the same as on the 
slalom course, but to successfully take your man over one of the 
jumps the fire button (or the spacebar) must be pressed just 
before you reach the jump. On both courses the screen will 
briefly flash dark blue to indicate that the obstacle has been 
negotiated safely. 

There are two listings of the game. The first is the joystick- 

operated version and the second is for a keyboard. In the 

keyboard version the controls are:- 

“K” = up 

“M” = down 

“Z” = left 

“X” = right 

Spacebar = jump and start game. 

Lines 1 toll are an initialisation routine. They allowyou to select 
the type of course and the number of people who are going to 
play the game. Line 12 provides the prompt message for the start 
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of play. Lines 13 to 16 PRINT up the start line using graphic 
characters from the keyboard. Lines 21 to 24 are further initialisation 
routines. 

The two FOR statements in lines 25 and 26 are the start of the 
two FOR/NEXT loops which control the frequency of the flags 
and the jumps during the running of the program. Line 27 reads 
the joystick or keyboard input and line 28 controls the jumping 
routine. If a jump is in progress the routine which changes the 
screen location values in the next few lines is bypassed. 

Line 29 uses the value of Tl$, the internal clock, to PRINT the 
score on the screen. Lines 30 to 38 use the input to change the 
values which are used to POKE your skier onto the screen. 


Line 29 is also part of the routine which controls the jumping. 
Lines 40 to 60 are safeguards to prevent your skier wandering off 
the screen during the course of the game. 

The sprites used in the game are POKEd onto the screen by lines 
100 to 108. The lines 114 to 116 check to see if the fire button or 
spacebar has been pressed to start the game. 

Line 117 reads the value of the fire button or the spacebar and 
creates the jump if it has been pressed. Lines 118 and 119 check 
to see if the skier has passed the jump. Line 120 checks for a 
collision. 

Lines 122 to 168 move the trees smoothly up the screen and 
differentiate between the slalom and the jumps course. Line 170 
sends us around the loop again. 

Lines 180 to 186 call up the new flags or jump and line 190 calls 
up the end routine when the course has been run. Lines 195 to 
340 contain the DATA statements for the sprites. The sprites are 
initialised in lines 4000 to 4060. The crash routine is in lines 
5000 to 5100. This is called up by line 120. 

The finish line routine uses graphics characters from the keyboard 
to PRINT up the display. The crowd is made up from the symbols 
on the “W”, “Q” and “E” keys. 
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j PFM 8KTINf; JOYSTICK VERSION W*. 

2 PR I NT ! IT : EH=28 • VH= 10 : R!J=3 : CR=6 ■ TI T=" 800188 " • 

REM CLP. SCRH 

3 PR I NT" SLfiLOM OR JUMP < S/J INPUT Fl$ 

4 PR I NT "HOW MFlNV PLAYERS?" • INPUT S 

5 DIM AK i 3) : PR I NT" "PLEASE WRIT" 

6 POKE 53231, J.'POKE 53280,14 : R=8 

7 V"533--IS PTT v+3 1 1 37 

8 POKE ’ 2848 '• 122 : POKE * 2841, 133: POKE 2842, 194: 
POKE 2843,135 : POKE 2844,196 

9 POKE 2845, 197■POKE 2846,138 : POKE 2847,199 
18 ROTO 4888 

11 FOR 81 = 12416 TO 12478'• READ O'POKE 81,8"NEXT 
:GOTO 4055 

12 FOR IR=i TO S : PRINT"PLPVER"Ifl"HIT RETURN TO 
PLAY T : INPUT I OUT 

13 PR I NT " m 11 : PR T NT TRE < 12 > " r ___n " : 

REM CLR SCRH LT BLUE 

14 PRINT TRE< 12>" i 53THE SKI CHIMPS 21 I" = REM LT 
RED LT BLUE 

15 PRINT TRE(12)'' I-‘-1 

16 PRINT TRE(12>"! ! 

28 GOTO 21 

21 X“228:Y=80:R=28:I=100:N=158■0=200:M=250:ER= 
75:RU=RU+1■POKE V+21,127 

22 FOR TVU=39 TO 45 : POKE V+TVU,5 : NEXT:POKE V+41 
,RU'IF fi$="8 11 THEN EH=18 = VH=20 ' 

23 POKE 53281,1'6=98 : DF=20*RND<1>+55 

24 L=258*RND<1> : K=158*RHB<1>+189:H=285*RNB(1>: 

T=58#RHB<1> +208 


•tet 

ci-J 

p ~j p 

RF~ 

1 TO 

**“i t ir 

FOR 

8E“: 

1 TO 

, —n 

zz 

prri/ 

»;■ FF 99 


T r* 

.L r 

JUM= 

100 T 

29 

PRINT"® 

I NT 

30 

IF 

TV::: 4 

THEN 

-i * 

I 

IF 

JV=2 

THEN 


IF 

JV=1 

THEN 

.j % J 

IF 

..TV=8 

THEN 



+XVZ 


39 

IF 

VE=6 

THEN 
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A p. 

rr *-' ••-nr Turk! V 

.L . »• •! ! i 1! _ I 1 <• 

• _.cr • Vi T i"7 — 0 

FTpj 

IF 0258 THE! 

N=259 : KV2- 

rrcr 

IF V>240 THE!" 

V=240 

6@ 

IF VC50 THEN 

V=50 

100 

POKE V+4v : F 

TIKE V+5 . v 

1 10 1 

POKE V-I-F.l :F 

'OKE V+7 .■ R 

1 02 

POKE V+8 .• K • F 

'OKE V+9, I 


103 POKE V-i-10. H • POKE V+11, N 

104 POKE V+12T : POKE V+13,0 


105 POKE V+2 .• 0 : POKE V+3..M 
l pc)i t y , j'sF : POKE y+1 , EP 

107 IF QV<10 THEN"114*. 

1 08 POKE V+14,ON ■ POKE V+15,QV 

114 IF P=2 THEM 117 

115 IF FRO 16 THEM P=2 : TI $=" OO0100 " ; PR I NT " IT' 
FR=16 : REM CLR SCRN 


116 

IF 

r-f 

r •• 

“> 

2 THEN 

25 




117 

IF 

F' : 


>16 THE 

N JUM=100 : POKE V 

+41 , 3 


118 

IF 

R:: 

N 

n S n AND 

( jT* 

>7-10 AND 07 

7X+10) 

AND 


>•; q* 

r-. i 

r ' 

.... 

15 RNH 

QV7V 

+15) THEN 55 

00 


119 

IF 

(r 


>N -10 AND r. 

777+10) AND 

( QV>V- 

15 AND 


QV 

i^.i . 

i-l 

5> AND 

JUM- 

100 THEN 5500 


128 

r r 

X i 

PE 

IE 

K (53248 

t-30 *:• 

AND4=4 THEN 

5000 


122 

WE: 

3=20 

:R=R-WE 

3 ; I - 

I-WES : N=M“WE 

8 : 0 = 0 - 

WES: 


M= 

4i 

■JE 

S:ER=ER 

-WES 

: QV=QV“WES 



1 29 

IF 

F\- 


" 8 ” THE 

N 15 

7 



130 

IF 

r. .. 

\\• 

",i 

THEN R 

-340 

:L=20*RHD<1> 

+50 


•i -~.rr 

IF 

T .. 

:i 

THEN I 

-240 

:K=30kRHn(1> 



140 

IF 


:i 

THEN N 

-240 

:H=20*RHD<1> 

+80 


145 

IF 

0 

:i 

THEN O 

~ 2 '*1 2 

: T=100#RHD(1 

> + 135 


150 

IF 

M-: 

11 

THEN M 

~240 

: 0=100&RMD(1 

> 4* 1 50 


155 

IF 

ER<. 

1 THEN 

ER“2 

40 •' DF= 100#RHD i 1) +1 

50 

156 

GOTO 

i 

.;2* O 





157 

IF 

113* 

~ 4 
.. i 

THEN R 

“240 

: L=2Q 



i JO 

t r* 

1 r 

I< 

:i 

THEN I 

=240 

: K=35 



159 

IF 

N< 

:i 

THEN N 

=240 

: H=55 



160 

IF 

0*: 

:i 

THEN O 

=340 

0=180 



161 

IF 

M- ; 

ii 

THEN M 

=240 

: 0=210 



162 

IF 

EF 

?< 

1 THEN 

k.h-~c. 

40:DF=245 



169 

IF 

O’- 

r'< 

1 THEN 

POKE 

V+21,127 



170 

me: 

• T 







180 

poi 

<E 

» f< ! 

+21,255 

: QX= 

129=QV=240 
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135 IF fi$="3" THEN QN=85*RNB<1>+75 


HEX i 


130 GOTO 6000 

195 BfiTR 0,24.. 0,0,24.. 0 , 060,0,0, 126.. 0 , @, 255.. 0, 
1,255,128,1,255, 128 

196 BfiTfi 3,255,192,3,255,192,7,255,224,6,255,96 
0,255,0,1,255,128 

1 97 BfiTR 3,255,192,3,255,192,7,255,224,15,189, 
240,12,60,48 

198 BfiTR 0,60,0,0,60,0,8,60,0 

280 BfiTR G,48,0,0,72,8,0,72,0,0,48,8,0,120,8,1, 
134,0,3,142,0,6,156,32 

218 BfiTR 12,191,240,24,184,32,16,249,0,17,153,0 
19.50,8,19,116,0 

220 BATFl 59, 184,0.19,48,0,2,32,8,4,64,8,8, 128, 

0,85,8,0,34,8,0 

380 BATfi 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , g, 0 , 0 , 0 , 0,0 , g, g , g, g , g , 
8,0,0,0,0,4,9,32,18,0,64 

31© BfiTR 19,255,192,1,255,144,28,145,96,2,118, 

128,1,8,0,0,48,0,0,0, 0 

320 BfiTR 0, 0,0 , 0,0 , 0 , 0 , 0,0 0,00 

338 BfiTR 8,8,8,0,0,8,128,0,1,128,8,1,128,8,1, 

1 28,0, 1 , 128,0, :!., 128,0, 1 . ' 

335 BfiTR 128,G,1,128,0,1,128,8,1,123,0,1,128,0 
, 1 , 123 , 0 , 1 , 192 , 0 , 6 , 0 , 8,0 

340 BfiTR 0,0, 0 , 0 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 , 0 


400G FOR 82=12288 

TO 

12358:READ 

Q2:POKE 

S2,02 

HENT:RESTORE 

TO 

12414:READ 

03 : POKE 

S3,03 

NEXT:RESTORE 
4028 F 0 R 34= 12480 

TO 

12542:READ 

04:POKE 

S4, 04 

NEXT:RESTORE 

TO 

12606:READ 

05:POKE 

35,05 

NEXT:RESTORE 
4040 FOR B2=12608 

TO 

12678:READ 

W2:POKE 

D2,W2 

NEXT = RESTORE 
4850 FOR 93=12672 

TO 

12734:READ 

143: POKE 

B3,N3 

NEXT:GOTO 11 
4855 FOR B4=12736 

TO 

12798:REfiB 

1,14: POKE 

B4, W4 


next 
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4056 IF R$="S" THEM FOR B4=12736 TO 12798=READ 
W4 : POKE D4,W4=NEXT 


4060 

nnin j? 

5800 

IF OR=6 THEN OR 

50 1 0 

8=54272:FOR L=8 


+1,100:POKES+5, 

5820 

PUKE 8+4 t 189 : 8U 

5180 

POKEV+41,0 : FOR 


POKEV+5,V:POKEV 

5500 

80=80+20 


5518 POKE53281,6:FOR TR»1 TO 1O : V=V+1 : POKEV+5, 
V : NEXT: P0KE53281,1.: CR=6 : GOTO 122 
6000 FOR: IT"" 1 TO 20 : PRINT : NEXT 
6005 REM "13" IS RIGHT CRSR 

6010 PR I NT" Will r.-. -i 

6020 PR I NT" mmi ! miTHE FIHISH LI HE, H I" 

6025 REM VELLOH LT BLUE 


pppp 

PR I NT" Hkiil! —— 

-— j 

6840 

PR I NT" HMi! 1 

1 

6841 

PR I NT" TTI'IIITT': PR INT TAB (25>" 0 0 OOO 


REM UP CRSR 


6042 

PRINT TAB C 25>" • L 000 

nnn nnnn” 

6043 

PRINT TAB’"25>" +•+■' 

,J.. 1 . L J . 

6844 

PRINT TAB(25>"@#00 • 

0 00@®#" 

6045 

PP T MT TP\Trf2Fi V ,J .^.-a 

...L. 

6858 

REM CLR SCRN 


6851 

IF JV=4 THEN X=N---5 


6852 

IF JV=8 THEN N=X+5 


6053 

V=V+4 


6054 

IF V>240 THEN 6058 


6055 

IF K>250 THEN N=258 


6056 

IF N<25 THEN X=25 


6051" 1 

POKE V+4,X'POKE V+5, 

V:GOTO 6O50 

6053 

RE= I NT (. VRL < TI $ > > SC 


6069 

FOR V=1 TO 3000:NEXT 
PRINT"SCORE IS0 ",RE 

• POKE V+21,8:PRINT" 

6070 

flkY t A':<=RF : FOR F=1 TO 
" SCORE --"; Al< (E > : NEXT 

IA : PR I NT" F'LAVER " ; E 

6080 

TI $= " 000000 " : p=0 : CR=I 

5: NVZ=0: SC:=8 : RE=0 

6090 

NEXT IA 


7000 

FOR T=1 TO 1000:NEXT 

: PR I NT" MPMfiliODOES 


ANYONE WANT TO RLAV 

AGAIN?" 
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7£'i85 RFM DOWN 

rRSR GREEN 

701G GET Fit : IF 

“ R$<>"V" THEN 

7015 RUN 


7020 IF ATO"!- 

r THEN 7010 

7830 END 



1 REM « SKIING KEYBOARD VERSION » 

2 PR I HI" IT ' EH---20 : VH= 10 : Ri>3 : CR=S : TI *=" 000100 " : 
REM CLR SCRH 

print "SLALOM OR JUMP <8/ J>" ; INPUT AT 

4 PR I N~Hfii,.! MAN V pi AVERS’”'" ■ INPUT S 

5 DIM R!<<8> ; PRINT"IT'LEASE WAIT" 

6 POKE 53281,1 ; POKE 53230,14=R=8 

-7 _!!TT •-! ; .-j - p j-j j/ p l ( ( !..... -J y 

8 POKE 2840.. 192 : POKE 2041.. 193 : POKE 2042 ..194: 
POKE 2043.. 195 : POKE 2044.. 196 

9 POKE 2045, 1.97 • POKE 2846, 198 : POKE 2047,199 

10 GOTO 400G 

11 FOR $1-12416 TO 12478'• READ 0 : POKE 81, CuNEXT: 
GOTO 4055 

12 FOR IA=1 TO 8 : PRINT"PLRVER"IA"HIT RETURN TO 
PL AV sJ" • INPUT I OUT 

13 PR I NT " FTT ■ PR I NT TAB < 12 > " r-- 1 " : 

REM CLR 8CRN LT BLUE 

14 PRINT TAB< 12> " ! 3STHE SKI CHMPS Ti ! " ■ REM LT 
RED LT BLUE 

15 PR INT T AB < 12 ) " !-! 

IS PRINT TAB(12)"I I 

20 GOTO 21 

21 X~220: V-80 : R=28 : 1 = 188: N= 158 : 0=288 •' M=258: 
ER=75 : RU=RU+1: POKE V+21,127 

22 FOR TVU=39 TO 45 : POKE V+TVU,5 : NEXT : POKE V+41 
, RIJ : IF AT=" 8" THEN BH= 18 : VH=20 

23 POKE 53281,1■0=98 : DF*20#RND<1>+55 

24 L=250#RND C 1> : K=158*RNB < 1> +188:H=285*RND(1> = 

T=50#RND<1> + 288 

25 FOR RF=1 TO VH 
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26 

-OR 


F 1 70 Bi-I 







c~ r 

TV--!' 

-E 

Ei<( i'37> : FR ~1 

r;> • 

IF TV =68 Ti~ 

IFi-i 

FR” 

N 0 


•*Ti 

1 * p 

J!JM= 188 THEM V 

B= 

VB+1 : GOTO 3 

lS } 




2.9 i 

- h. j. i 

•rr 

11 :INTCVALC 

TT 

$ **i : ppH wnr* 

IF 




99 

t r 

79 

-19 THEN VV7 

- . 

o 





9 j 

f F 

Tl t ,» 

—c y j...i ir k i • j . u 

O 







r rr 

i. r* 

T ! 

-97 THEM VsV 

w o 







r r- 

l ; 

n,> 

•-99 THEN XV7 

::::: 0 






99 ' 


fV 

ij *7* 







9 Q 

[F ' 

,'B 

=6 THEN JUM= 

Fl : 

VB= 8 : POKE \ 

'+41 

, RL 



40 

tf : 


5 THEN 7=5:X 

vz 

=3 





50 

if : 


258 THEN 7=2 

58 

• »..« M "? .... p 





srcr 

. j . j 

IF • 


248 THEN V=2 

48 






SB 

IF * 


50 THEN V-50 







186 

PD! 

:-;r 

V+4,7:POKE 

y+ 

rr i * 

.J T 





1.81 

POi 


y +6 ,! : PHEF 

y+ 

-7 f, 

,** . Jt 





1 09 

pQj 

/r~ 

V 1 9•K•POKE 

1 :■ 

9 , 1 





H r-r~‘ 

i. j :.. : o 

PO! 

••r 

•• L„ 

V+10,H:POKE 

!_ 

+ 11 ,N 





184 

PO! 

<E 

V+12, T •' POKE 


+ 1.3 , n 





1.88 

PO! 

: -.E 

V4 * c :i : H • pijKE 

V+ 

3, M 





186 

POi 

<E 

V . Tip ■ POKE V 

+ 1 

, FR 





187 

IF 

j9 

VC18 THEN 11 

4 






1 99 

POI 

r.i 

V+14,Q7 : POK 

E 

V+15,QV 





114 

IF 

P 

=2 THEN 11.7 







115 

IF 

F 

ROIF THEN P 

=2 

’TT $="000 J0 

)0" : 

PRINT" 

n" ■ 


FR : 

~1 

6:REM CLR sc 

RN 





*} *| 

IF 

d 

i 

02 THEN 25 







117 

IF 

F 

ROIF THEN JUM 

-100:POKE V 

'+41 

O 



118 

IF 

Fl 

$="8" AND <0 


7 - 1.8 Find qv 

<7+10} 

and 


<Q'i 

j -•., 1 

r 15 AND QVC 

t' + 

15 } THEN 5508 




119 

IF 

( 

37>7-18 AND 

QX 

<7+10} AND 

( QV 

>v- 

15 

AND 


QV- 

S’ M 

+15} AND JUM 

= 1 

80 THEN 5500 




128 

TF 

PEEK<53248+30 

> Fl 

474=4 THEN 

500 

0 



•1 

HE? 

~]zz: 

28 : R-R-WES : I 

- T 

.... x 

-WES:N=N-WE 

s : 6 

=0- 

WES 

: r-1= 


WE? 


ER-ER-WES:QV 

=0 

t'-WES 





129 

IF 

fl 

PC 11 THEN 1 

57 






138 

T p 

R 

Cl THEN R=24 

0 : 

_=28*RNTK 1} 

+50 




135 

IF 

I 

Cl THEN 1=24 

0: 

<=30*RNDC1} 





148 

IF 

H 

Cl THEN N=24 

9 ■ 

4=20*RND(1} 

+80 




145 

t r* 

i r 

0 

Cl THEN 0=24 

3 : T= 180#RNI) C1 

} + l 

35 



158 

IF 

M 

Cl THEN M=24 

0 : 

3=100#RNDa 

> + l 

50 



155 

IF 

F 

RC1 THEN ER= 

248 : DF=1Q0#RNB(1 

) + l 

50 
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156 

GOTO 1 

69 


157 

IF PCI 

THEN R=240: 

L..=20 

1 58 

IF K1 

THEN 1=240: 

K=35 

159 

IF N<1 

THEN N=248: 

H=55 

1 SO 

IF oa 

THEN 0=240: 

T = 188 

161 

rr M <"1 

THEN M=248 : 

0=218 

lb 2 

rp rp : <" 

\ THEN pp=24 

0 : DF-245 

1 

T {!“* f| M 

1 THEN POKE 

■ii 1 +9 1 , 197 

170 

UjTVT 



180 

POKE V 

+•21,255: 0X=1 

28 : QV=248 

185 

IF A$= 

"S" THEN QX= 

85&RND < 1)+75 

186 

NEXT 



190 

GOTO 6 

000 


195 

DATA 8 

, 24,0,0,24,0 

, 0,60,0,8,126.0.0.255,0.1 


255.12 

8,1,255,128 


196 

DATA 3 

. 255:192,A,9 

'55, 192,7,255, 224,6,255, 96 


0,255, 

0,1,255,128 


1 97 

DATA 3 

, 255,192,3,2 

55,192,7,255,224,15,189, 


248,12. 

, 68,48 



1 

98 

DATA 

@ , 6 

;e. 

0, 

0 

, 60 

, 8,0 

61 

0,0 









08 

DATA 

0,4 

•8, 

0 

0 

, s* «:2 

, 0,0 

“I ' 

2 , 0,0 

,4 

•8 

, 8. 

, 0, 

12 

0 

, 0, 1 



134, f 

3,3, 

14; 


0 


1.56,: 

. j d 









ul 

18 

DATA 

1 2, 

19 

1, 

•**% 

48, 

24, 1 

04 

. pp , 1 

6, 


49 

, 8, 

17 

? 

153, 



8, 19 

, 50, 

0, 

19 


116 

, 0 










p 

28 

DATA 

59, 

1 2 : 

4. 

;7j 

, 1 9 

, 48, 

0, 

\ t t *~i 

0, 

4 

, 6' 

4,0 

1 

i .i 

l uLO , 



8,85 

, 0 , £ 

i, 3 

:4, 

0 

, 0 











*'9 

08 

data 

0 , P 

1,0 

, 0 

, 

0,0 

, 0,0 

, 0 

, 0,0 , 

0, 

8 

, 0 

, 0, 

0, 

0 

,0,0 



0, 0, 

0,0 , 

0, 

4, 

0 

-~*f •‘"t 

1 .» OcL 

, 10, 

0, 

64 









18 

DATA 

19, 

••"iir 

.«•_. j 

5, 

1 

92, 

] --J cr KT 

J. , , 2 . .J.J , 

144,2 

i o 
P-J J 

145 

, 96 

**T 

, i2 

; 

110, 



128, 

1,0, 

0, 

0, 

4 

8,0 

, 0,8 

1 , 0 










20 

dh fa 

0, £ 

;l, 0 

!9 

! 

0,0 

, 0, 0 

, 0 

,0,0, 

0 







•2 

:38 

DATA 

0, g 

i, 2 

1, F 

j : 

0,0 

1 op 

, 0 

,1,128, 

, 0 

, 1 

, 12 

'P 

0 

!, 1, 



128, 

0, 1. 

1 oo 

2 

1, 1 , 

128, 

0, 

1 








•2= 

Onr 

DATA 

12‘E 

!, 0 

, i 

, 

128 

, 8,1 

, 1 

28,8, 

1, 

1; 


, 0, 

1, 

1 

28,8 



1, 12 

8,0. 

, 1, 

ii 

?2 

: :, 0 , 

6,0, 

0, 

0 








• j ( 

48 

DATA 

0,0 

, 0 

, 0 

, ( 

"I, 0 

, 0, 0 

, 0 

. 0,0 . 

0, 

0. 

. 0. 

0,1 

0, 

0 

, 0 ■ 0 

4i 

008 

FOR 

r* '5* 

12; 

,## *l (“l 

ciO 

y 

TO 

1 “ 

50 

: READ 

Q 

l2 

: POKE 

O 


, 02 : 



NEXT: RE 

STORE 












4! 

018 

FOR 


i p; 

35; 

2 

TO 

12414 

: READ 

Q 

ip 

:pr 

)KE 

c 


, 03 •• 


NEXT:RESTORE 


40 




4020 

FOR S 

4=12488 

TO 

12 

542 = 

READ 

Q4 : 

POKE 

S4, 

04: 


NEXT: 

RESTORE 









4830 

FOR S 

5=12544 

TO 

12 

686 : 

READ 

05 ; 

POKE 

-•nr 

05 •• 


NEXT: 

RESTORE 









4048 

FQP Ti 

2-12b08 

TO 

12 

670 : 

READ 

W2 : 

POKE 

D2, 

W2 : 


NEXT ■ 

RESTORE 









4050 

FOR B 

jO — 1 pf 7;“ 

TO 

1 2 

734 • 

READ 

113 : 

POKE 

1)3, 

N3: 


NEXT: 

GOTO 11 









,1 

FOR T' 

•4=12736 

TO 

12 

733: 

READ 

!,J4 : 

POKE 

D4, 

W4 = 


NEXT 










dCiFif, 

IF m 

="S" THEN ! 

FOR 

D4= 

12736 

TO 

1 2.7: 

38 : READ 


N4:POKE B4,N4 : NEXT 







4040 

GOTO 

12 









5000 

IF CR 

F THFN 

OR: 

= 1 ■ i 

GOTO 

122 





5019 

«*•*•..... nr •» •***. 

o 4 c. 

72 - FOR L 


TO 

24 : 

POKES 

+L , 

0 : NE> 

:;T : P 

OKES 


••I- j , 1 0! 

0 : POKES4 

nr 

‘ . J .» 

10 

: POK 

ES+24 

, 15 




5020 

POKE 

p f 4.. 1 20 : 


=sc- 

. 48 






cr -1 p, |*!t 

r~, f—j j.-* r~; i i 

•I-4 1 .0 : pr 

ip 


1 TO 

500 : 

NEX 

T : V=V+15 



F'OKEV 

+5 , V : POKE',' 

+41 

, RU ' 

CR=6 : 

GOT 

'0122 



5500 

SP-Sf: 

+20 









5510 

POKES 

3281 , 6 ■ FOR 

TR 

=1 TO 10: 

V=Y+1 : F'OKEV 

+5, V 


: NEXT 

: P0KF532S1 

,10 

CR=6 

: GOTO 

1 ~ 

J. L— 

pl 

CL 



6080 

FOR w= 

=1 TO 20 

’ PF 

> J KI1 

: he; 

. .'-r 

■N ! 






6005 REM "M" IS RIGHT CRSP 

6010 PR I NT " HiiiS r .- - . —i 

6020 PR I NT" piiiil! HTTHE FINISH LINE. . .3 !" 

6025 REM VELLOW LT BLUE 

6030 PR I NT " ktiil! —-———| 

6040 PRINT"W»»il i 

6041 PRINT'LTTTTTTTI’' : PRINT TAB<25>" 0 O DOG" : 
REM !JF' CRSR 


6042 

PRINT 

TAE if 25 ) 

M • L 000 

nnn nnnn n 

6P48 

PR I NT 

TAB(25) 


J.. JLJUUL" 

6844 

PRINT 

TAB(25) 

"ttoo 

ffliQ 00### 11 

6845 

PRINT 

TAB(25) 

>* ...!. 


6S50 

REM G 

_R SCPN 



6051 

IF JV : 

=4 THEN 

';.' r y_cr 


6052 

IF JV= 

=8 THEN 

•. .*_•..« , itr 


6053 

V--V+4 




6054 

IF v>; 

240 THEN 

FPPP 
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6 

^jr;cr 

IF X>25 

0 THEN X~250 



6 

056 

IF X<25 

THEN X“25 



•‘.r 

■".iCt-t 

:J J i 

r, :"**> {"“* 1. ! 

4, X ' POKE V+5.. '■ 

•' : Qf 

7TO 6050 


Ttnro 

PF-i: T K!T ( 

m... airy>-sc 



S 

060 

FOR V=1 

TO 3000:NEXT: 

: F’OI- 

4E V+21 .■ 8 : PRINT"C3" 



PRINT"S 

CORE IS:";RE 



bi 

070 

Fil< < I H > = 

RE:FOR E=1 TO 

Ifi 

: PRINT"PLflVER"; E; 


"SCORE”";fiK<E> : NEXT 

SOSO TI " 000800" : P=0 OR”6 : XVZ--0 ' SC=0 : RE=0 
609O NEXT IFl 

7008 FOR T~i TO 1080 : NEXT ' PRINT"^IsKMlffiOES 
AHVONE WANT TO PLRV flGflIN?" 

7003 REM DOWN OPSR OREEN 

7810 GET Fir IF THEN 7820 

7013 PUN 

702.0 IF R$O n N" THEN 7010 
7030 END 
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SPOTLIGHT 


Here we have another great clever program written by William 
Leader. You are a guard on the prison planet Uriel. This harsh, 
bleak planet is being used to hold a vicious band of space pirates. 
You are on duty in your guard tower the night the pirates plan to 
break out of the prison, climb the prison wall next to the space 
port and steal a ship to leave the planet. Your duty is to prevent 
the prisoners from reaching the wall. You must use your spotlight 
to patrol the pitch black yard and, if you see an escaping prisoner, 
fire your blaster to prevent him reaching the wall. 

The game can be played with either a joystick or by using the 
keyboard. When you are using a joystick, the fire button fires your 
blaster. In the keyboard version of the game, the “K” key moves 
the spotlight up the screen and the “M” key moves it down 
screen. The “Z” and the “X” keys move it left and right respectively. 
The space bar fires the blaster. 

There are five levels of difficulty in the game. Level one is the 
easiest and level five will provide a real challenge for the best of 
the arcade champions! The level of difficulty relates to how fast 
the escaping prisoners move. After you have stopped twenty 
prisoners from escaping, you will automatically progress to the 
next level. 

When the program is RUN you will be asked to indicate which 
level of difficulty you wish to play. After you have answered this 
question you will be asked if you will use a joystick or the 
keyboard. The screen will then go black, the wall will be printed 
across the top of the screen and the beam from your spotlight will 
appear on the screen. 

There will then be a short delay while the program organises 
itself. A siren will then sound, warning you of an escape attempt 
and, in the top left hand corner of the screen, you will be shown 
how many prisoners are escaping. It is a good idea to keep a 
count of the number of prisoners you have stopped as this 
prevents you from accidently missing one and allowing him to 
escape. 
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You must start searching for the escaping pirates. When you find 
one, press the firing button on your blaster to stop him. You will 
see that there are other objects in the prison yard as well as the 
prisoners. Don’t let them distract you. You will have no trouble 
recognising the pirates, they are dark shadowy figures who carry 
long, curved knives. They are very dangerous! 

Lines 1 to 24 initialise the variables and set up the parameters for 
the program. They also ask for the level of difficulty and whether 
or not you will use a joystick. Line 21 prints the wall. 

Line 25 reads the joystick input. Line 26 goes to the routine 
which advances levels. Here a check is made to see if a new level 
has been reached and provides the new variables and tells you 
the next level has been reached, if required. 

Line 27 calls up the routine which reads the keyboard input if the 
keyboard is being used. Lines 30 to 37 act upon the joystick 
values, by altering the variables which are used to control the 
screen position of the spotlight. If the fire button has been 
pressed, line 38 calls up the sound routine. 

Lines 40 and 41 enable the sprite which is used for the spotlight 
to cross the 255th screen location and move all the way to the 
right hand edge of the screen. Lines 42 to45 make sure that your 
spotlight beam stays on the screen. 

Line 46 checks to see if there is an escape in progress and if 
there isn’t, goes and starts one. Lines 50 to 53 move the 
escapees randomly up the screen. Line 60 checks to see if 
prisoner number one has escaped and lines 61 to 63 make sure 
that the prisoner stays on the screen. Lines 65 to 68 perform the 
same function for prisoner number two. 

Lines 100 and 110 POKE the sprites onto the screen and lines 
118 and 120 check to see if a prisoner has been hit. Line 130 
sends the program around again. 

Lines 200 to 280 contain the DATA for the sprites. We check to 
see if a prisoner has been killed in lines 400 to 420. If he has, he is 
removed and is replaced by lines 430 and 435. 

Lines 450 to 460 check to see if the prisoners have staged a 
breakout. Lines 465 and 475 warn you of the escape. 
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The buildings are printed on the screen by lines 500 to 590 and 
the sound routines are contained in lines 600 to 650. 

Lines 800 to 870 tell you that a prisoner has made it over the wall, 
they also advise you of your score and ask if you wish to play 
again. 

Lines 900 to 920 advance the program to the next level of 
difficulty and the keyboard reading routine is in lines 1000 to 
1015. 


■! 

1 


f v ’Ui\ 


FT 


31 


: ’0KE 


lIKl 


PR I HI" :M«!5MpMp®OT8 


u hot i Fun if i- Fi r”*" 

2 GET " " OR VRLXATKl OR VflL<R$»5 

THEN 2 

3 L=VRL < fi$ > : LV=L#4: PL=L : L=L*2 : ES=8: SC=0 : PR I NT 


"IT : REM CLR SCRH 

7 X2=2@8$RNB(1> +50 : ¥2=230 : X=180 : V=100 

8 X3=200*RND(1)+50 : V3=238 

9 POKE 53281.8 : POKE 53288.-0 

12 POKE "2848, 132 '■ POKE 2841,193 : POKE 2847,199 

13 PRINT 11 :*MsM6M#::EYEiJflRIi OR JOYSTICK<K/J>?" : 


REM WHITE DOWN CRSR 

14 GET KiP ; IF !<$=”” THEN 14 

15 PR I NT 11 IT ■ FOR I = 1T048 ■ T= 1880*RHD < 1 > : P0KE55236 
+T,8:POKE1024+T,83:NEXT:GOSUB508 

16 FOR 1 = 1 TO 18 : T=1808#RNB <1> : POKE 55236+T,8 ^ 
POKE1824+T,65:NEXT•POKE V+21,131 

17 FOR I = 1 TO- 48: T= 1800#RHD(1 > •' POKE 55236+T, 0: 
POKE 1824+T,88•NEXT:GOSUB 588 

18 FOR N=12288 TO 12358 : RERB Q : POKE N,Q : NEXT 

19 RESTORE : FOR N=12352 TO 12414:READ Q : POKE 
N,Q : NEXT 

28 FOR N=12736 TO 12738:READ Q : POKE N,Q : NEXT 
21 PRINT"35################################## 
###" 


22 REM HOME L..T RED SHIFT + 3 KEV 
24 POKE V+33,8 : POKE V+40,8 : POKE 


V+46, 


1 


45 





-itr* 
.i. J 

JV=PEEK<56328) 

■' FR=JVAND16 

26 

nnsiiE 900 


cl «' 

IF K$~"K" THEN 

1 000 

30 

IF .JV-1 THEN V 

--V-y 

31 

IF JV=2 THEN V 

=V+8 


IF JV=4 THEN X 

_O 

***** 1* • 

O t -~\ 

IF JV-8 THEN X 

=X+8 

34 

IF TV-5 THEN V 

=v-y • 

cr 
•2* o 

IF JV=6 THEN V 

y,_jlj 

36 

IF JV=9 THEN V 

=V-8:X=X+8 

2' \ 

IF JV=18 THEN 

V=Y+8 : X=X+8 


IF FRO 16 THEN 

G03UB 628 


48 IF 50255 AND PEEK(V+16>=0 THEN POKE V+16, 

l C'ft : 1 

41 IF"x<l AND PEEK<V+ IS >=128 THEN X=255 : POKE 
V+16,8 

42 IF V<58 THEN V=58 

43 IF V>229 THEN V-229 

44 IF X<0 THEN X“8 

45 IF X<28 AND PEEKCV+16>=8 THEN X=28 

46 IF ES=0 THEN POKE V+ 14,14 : POKE V+15,V : GOTO 460 
58 X2-X2+INT(LV*RNB(1>-<LV/2>) 

51 V2—V2—I NT < LfcRNB < 1 > > 

52 X3-X3+1NT< LV#RND(1>-<LV/2>> 

53 Y3=V3~INT(L#RND<1>) 

60 IF V2 <50 THEN POKE V+39, 7 : PR I NT "21" : GOTO 800 
=REM CLR SCRN 


61 IF V- 


THEN V2=227 


62 IF N2<24 THEN X2=24 

63 IF X2>250 THEN X2=258 

65 IF V3<50 THEN POKE V+40.. 7 : PRINT"<3" : GOTO 888 
: REM CLR SCRN 

66 IF V3>227 THEN V3=227 

67 IF X3<24 THEN X3=24 

68 IF X3>250 THEN X3=250 

108 POKE V,X2 : POKE V+2,X3 : POKE V+14,X 

110 POKE V+1, V2: POKE V+3, V3 ■' POKE V+15, V 

118 IF FR=16 THEN 130 

128 IF PEEK<V+30)FlNB4~4 THEN 408 

130 GOTO 25 

208 DATA 8,8,16,8,24, 8,0,36.. 4, 8,36,2,8,24,3,8, 
24,7,0,254,14,1,255,252 


46 






BATA 3,255,248,15,235,248,14,126,8,28,126,8 
,56,68,8,112,62,8 

DRTR 224,119,8,64,231,8, 1 , 199,8,2,139,8,7,7 
,0,14,7,8,14,7,8 

DRTR 0,255,8,3,255,192,7,255,224,15,255,248 
,31,255,248,63,255,252 

DRTR 127,255,254,255,255,255,255,255,255, 


rrtr nr a r.r :cr --.rrcr ~crnr ~,ircr **-,crrr '“icrtr 

•J.J .1 .« U-2-J-.J d-j.j .• ,r. J . j .< cl. • J • J .» cl• J • J .» 


-“rrcr '~tcrr? --.crcr •->er cr --.crcr 

£~ \J * ,* uJ *J \J J •— 1 •— 1 C. \J •«.* J \J -.J C. *.J 


DRTR 255,255,255,255,255,255,255,255,255, 

127,255,254,63,255,252 

DRTR 31,255,248,15,255,248,7,255,224,3,255, 
192,8,255,8 

I7X6X2+15ANBX>X2~15ANBV0V2+15ANDV>V2~15THEH 
X2=288*RNB<1>+50■V2=238 : G0T0438 
IFX6X3+15AN0X>X3~15RHDV<V3+15RNDV>V3~ 15THEN 
X3*288*RHB<1>+50 : V3=238 : G0T0438 
GOTO 138 

GOSUB 6'- ! 8 : SC : ~SC+58 : NU=NU-1 ' IF NU<1 THEN 458 
GOTO 138 

HU=8 : E8--0 : X2~8 : V2=8 : X3=8 : V3=8 

POKE V,8:POKE V+1,0:POKE V+2,8:POKE V+3,8: 

GOTO 138 

CH-8: CH~ I NT 35*RND < 1 > >+1: IF CHO1 THEN 25 
NU=INT(1OTRNB(1> T+2 : X2 = 280^RND(1> + l : X3=280# 
RHB(1>+l:V2-238 : V3~V2 

GO SUBS 88 : PR I NT " 3#5MWNO . * "HU : FORT* 1T0688 ; NEXT 

•• PR I NT" mm " : ES* 188: GO TO 25 

REM PUT CRSR BACK INTO LINE BEFORE PRESSING 

RETURN 

PRINt , *'»:^e»M^'' ; REf1 HOME BLACK DOWN CRSR 
REM "H" IS RIGHT CRSR 
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FOR T"1 TO 20’O : NEXT'• POKE V+2 1.. 8 : POKE 53281 
i3 ■ POKE 53230.- 8 

PR I Ht" PRISONER HRS ESCAPED! ! !" : 


FOR T“ 1 TO 20100 : HFXT 
835 REM DOWN CR3R BLACK 
840 PR I NT" MiiilMi'lDililElfT'Olj SCORED $ 
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845 REM DOWN CRSR RES WHITE 

850 FOR T=1 IQ 2808 : NEWT : PRINT”'sTpSTH!Q VOU WONT 
RMOTHER GAME?"’ 

851 REM DOWN CRSR VELLOW 

855 0 E7 R$•IF fi $<> 1 >y ’ 1 j upy @g 5 

885 IF 'filO"N" THEN 855 

878 POKE 53281,3: POKE 53288,9 : PR I NT" inmUM' 1 : END 

"pi £•*• p", «•*** ’p. p.j j j j 1 |—. y.| j 

300 IF 'sC-RW+1080 THEN PL-PL+1 : PRINT" 

LEVEL si PL3 GOTO 318 

301 REM HOME BOHN WHITE 

q;"[“ RE'T! Ip', j 

91 8 RW”SC ■' L“L ' 2 : LV=LV+4 : FOR T-~ 1 TO 1008 : NEXT 
915 PR I NT" SSlEiBiiMS " : RETURN 

316 REM HOME DOWN 
928 RETURN 

1008 JV“PEEK<137) : IF JV=S0 THEN FR=10 
10.11 IF JV=36 THEN V=V+8 
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ASTRO-BLASTER 


The space freighter lanes around your space station are dangerously 
cluttered with a group of large asteroids. You have been sent out 
in your trusty mining ship to blast the asteroids out of the way. 

However, there is a complication. An alien culture has decided 
that these asteroids are worthy of preservation and has sent a 
patrol ship to protect them. This alien is a pacifist as well as a 
conservationist so he will not fire at your shipas you try to remove 
the rocks. However, he will not hesitate to ram you to protect the 
asteroids. The alien has a radar tracking device which will home 
in on your ship. You are a little lucky as this device doesn’t work 
very well when you are over on the right hand side of the screen. 

As well as avoiding the alien’s attempts to ram you, you must also 
avoid crashing into the asteroids or the border of the screen. Any 
of these mishaps will cause your ship to explode. You will find that 
your missiles have no effect on the alien ship or on any asteroid 
the alien ship lands on. 

The “I” key moves your ship up the screen and the “M” key moves 
it down screen. The “J” key moves the ship left and the “L” key 
moves it to the right. The “U” key can be used as a temporary 
pause button to help you regain your breath! This key arrangement 
may seem a little difficult at first but, you’ll discover, it becomes a 
very good way to control four-directional movement. The “F” key 
fires your missiles. 

The movement of your ship is continuous. When you press a key, 
your ship keeps moving in that direction until you press another 
key. This makes the game very difficult and it requires a lot of 
playing to master. 

A final word of warning. Your ship is a mining ship, not a space 
fighter. It wasn’t designed to carry heavy weapons, so when you 
fire your missiles watch out for the recoil! 

After the title has been displayed, the screen will turn black with a 
brown border. The four asteroids will be POKEd onto the screen 
followed by the alien ship near the top left hand corner of the 
screen and your ship in the middle of the screen but nearer to the 
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bottom. The time taken will be displayed in the top left hand 
corner of the screen. 

Astro-blaster was written by Daniel Quinn. 


:i REM M* ASTRO-BLASTER 
2 " TnHr! AMTTH" ' BEST$= "50" : RT=0.. 25 

1.0 RESTORE' FOR 1 TO 25 : PR IHT - NEXT : PR T HT" S3" : 
REM HOME 


It POKE 5323i.O:POKE 53230,3 

12 PR I NT " MsMiMpMbIUJ" ; TAB < 1 2 > " SSSRSTRO-BL ASTER!" 

13 REM DOWN CRSR BLUE REV OH REV OFF 

21 POKE.V+21,0 

22 POKE V, 0 : POKE V+l . 135 

2 3 P 0 K E '' + 14. 0 : p 01< E V + 15,1 5 O 

24 POKE V+2,0 : POKE V+3-170 

25 POKE V+l6,0 


26 MX~V"!-1S 

27 C-2040 

30 00SUB 303O 

40 PRINT""!" : REM PLR SOPH 

41 ZX-RNI) < -TI > 

42 GOSUB 1508 


50 :•<= 150 : V= 135 : s= 15: RS=4 
60 EX=25:EV=50 : 82~RT*8 
80 POKE V+41,7:POKE V+42 


POKE ','+43.3 : POKE 


V+44,3 

35 POKE V+21,127 

36 POKE V+33,7'POKE V+48,7 

37 POKE l 37,0 
78 TIf="008000" 

180 P=PEEK< 137) : IF P=4 THEN PRINT"]]" : GOTO 10: 
REM CLP SCRN 

181 PRINT" m IME—>"RIGMT$(TIT,3 >" ":REM HOME 

182 MSB=PEEK':'V+16) 

110 IF P=64 THEN P=L+32 
115 P=P~32 

120 IF P=.11 AND M=0 THEN 122 

121 GOTO 125 

122 X1 =X : V1. ~V ; M= 1 :R=36 
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4 *•"> ~s 

IF R 

EEk 

r y+1S >= 1 

THEN POKE 

V+16,3 

124 

GOTO 

11 





•! ~inr 

IF p 

•C1C 

RP>37 THEN 1 

90 


1 90 

ON P 

QD 

TO 140,1 

50, 1 

80,160, 

170 

140 


FUj 

OTO 180 




150 


S : G 

OTO ISO 




168 

178 

i j..... ii ^ 

•j 

OTO 188 




1.80 

190 

L=P 
IF H 

-- -j 

then VI = 

i .... O 
• j. ...* 

•POKE V 

+2,XI:P0KE V+3,VI 


: IF 

VK 

30 THEN 

M=0 : 

X1 =9 '■ V1 

=0 

200 

IF X 

->r;, 

THEN EX 

=EX+ 

O 


218 

IF X 

FEN 

: THEN EX 

:=ex~ 

O O 


220 

IF V 

•CE't 

1 THEN EV 

~EV~ 

C’ '7' 


230 

IF V 

>E't 

' THEN EV 

! =FV+ 

r- *7' 


. —, r ~ 

'T -J 

IF X 

>25 

15 THEN F 

'OKEV 

+ 16,1 : X 

, —C..J.J 

476 

IF X 

■C0 

HNII PEEK 

XV+l 

6>=1 THEN POKE V+16,0: 


477 


TC 


:q f*nd peek<v+i6>= 


THEN POKE V+16,0: 


480 

POKE V . X 

: pn 

j<*F y+i , V 


490 

POKE V+l 

? ■ FX 

:POKE V+13,EV 


799 

W~PEEK(V 

f SJ ) 



“7 Q tr 

IF H=65 

THEN 

hijTU 1090y 


810 

IF H=210 

THE 

N POKE 2044,199 

POKE 2044,195 


POKE 2044,18 



820 

IF Ul=6 C 

R UI= 

10 OR U!”18 OR UK 

=34 THEN 840 

838 

GOTO 900 




840 

H=W--2 





850 IF N=4 THEN P0=4: SP=2 

855 IF N=8 THEN PH=6: 8P=3 

860 IF N= i6 THEN P0=8-'3P=4 

870 IF N=32 THEN PO=10:SP=5 

880 POKE 2040+SP,199:POKE V+39+SP,10 

885 FOR ?=1 TO 100:NEXT 

890 POKE 2040+SP, 195:POKE V+39+SF',9 

891 FOR Z"i TO 100:NEXT:POKE V+39+SP,7 : FOR Z=1 


892 

899 

894 

:~:Q 


TO 100:NEXT 
POKE 2040+SP,13 
X 1 = 0 : V1 ~ 100 : f‘1 0 
POKE V+2,X1 : POKE 


V+3,VI : RS-RS-0.5 


5 IF PEEK (0+2 > +PEEK (. C+3 > +PEEK < 0+4 > +PEEK < 0+5 > 
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39b 

PRINT"8"X" "V" 

" ' REM 

HOME 


900 

IF XC24RHD PEEK<V+16>= 

0 OR V<50 OR 

l J *\ -“i 

i c.. 

25 OR 


X>65 AND PEEK(V+16 > = 1 

THEN10908 



923 

IF w- 1=4 OR N.1=8 OR W 

-1=16 OR H~1 

•~ l cL 

THEN 


10908 




1 000 

GOTO 100 




1.500 

T=1:T2=2 




1501 

POKF v-1-29 ■ 12 : P 0 KF v+? 

3.. 20 



1 51 0 

FOR Q=1 TO 4 : B=0 




1511 

T--T+1 : T2=T2+2 




1520 

X ( Q) = INT < RNB(T >#231':- + 

24 



1539 

! ' < Q > = IMT (PHD (T > ■¥. 120 > + 

50 



i ^ •“ r ~ 

IF X<0>> 130 AND K(QK 

170 THEN 152 

3 


1536 

TP 7-\~ 1 JHFW 1 P»4P 




1540 

POKE Vh-2 1.. PEEK < V-'-21 > + 

< 2 TT > 



1.545 

POKF V+TP.X-rQ) :P0KF V 

+T2+1,V <Q> 



1551 

IF PEEK < V+38)> 0 THEN 

B=1:GOTO 15 

28 


1560 

IF PEEK<V+30>*0 THEN 

NEXT 



1 600 

RETURN 




5060 

END 




6000 

REM m*. AFTER STAGE * 




6001 

FOR 2=1 TO 500:NEXT 




6005 

POKE V+21 .■■ 0 




6006 

POKE 532817 : PRINT"!?" 

: REM BROWN 



6010 

PR T NT " "IsMsiMiJMiuM" 




6015 

REM CLR 3CRN DOWN CRS 

R 



6020 

PR I NT" l»»ii»ii»i»li&lE 

LL DONE!!1" 



6925 

REM RIGHT CRSR REV ON 




6030 

PRINT : PRINT"3 VOU HP 

VE CLERRED THIS 



SECTOR OF ASTEROIDS." 



6035 

REM BLUE 




6040 

PRINT : PRINT"! V 

DU DID IT IN 

THE 

TIME 


OF " 




6945 

REM Bl Ark' 




6050 

PR I NT " SC$ 

" SECONDS" 



6055 

REM RIGHT CRSR 




6060 

PRT NT" WMMRFREV IOUS 

BEST ="BEST $ 

ll 



SECONDS " : PR I NT " »»H»iilACH IEVED BV" i 



6062 

REM RIGHT CRSR RED 




6065 

FOR 2=1 TO 500 : NEXT 




6070 

1 F VRL <EEST$)OVRL<SC 

$■;.< THEN 6200 
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60 R 0 W*T$=zr:$ 

6090 PR I NT : PR I NT : PR I NT : PR I NT " 3i»i»ISfrOU HAVE 
ACHIEVED BEST TIME" 

6095 REM BLUE RIGHT CRSR 

6100 INPUT" WHAT IS VCHJR NAME,COMMANDER";NT 

6900 PR I NT" rj'JEU... VICTORIOUS COMMANDER" 

6905 REM CLR SCRN 

PA10 PRINT" WHAT DO VON WISH NOW?" 

6920 PRINT" 1. REPLAY SAME DIFFICULTY " 

6925 PRINT" 2>..... REPLAY AT EASIER LEVEL " 

6930 PRINT" 3>....ADVANCE TO HARDER LEVEL" 

6940 PRINT" 4>...»END PROGRAM" 

7001 PRINT-INPUT" YOUR ANSWER" 

;Z:IF Z=4 THEN END 


7002 

IF 7" 

••! THEN 

GOTO 

1 0 

7003 

IF Z^ 

•9 THFN 

RT=RT+0.25 : GOTO10 

7004 

J p* 

"2 THEN 

RT=R1 

--••0„ 25 : GOTO 10 

9030 

POKE 

C,192 : 

REM Vt 

)UR SHIP.SR(8> 

9040 

POKE 

C+l,19 

3 : REM 

MISSILE...SR<1 

9000 

POKE 

C+2,19 

4 • REM 

R8TER0 TI) * „ SP <2 

9060 

POKE 

C+3,19 

4 : REM 

ASTEROID. SP<3 

9070 

POKE 

C+4,19 

4 ■ REM 

ASTEROID..SP<4 

9080 

POKE 

C+5,19 

4 = REM 

ASTEROID..SRC5 

9090 

POKE 

C+6 .• 19 

8: REM 

ALIEN.....SP(6 


9100 FOR A~0 TO 62 : READ D : POKE 122S8+A, D: NEXT 
9110 FOR fl*0 TO 62:READ D : POKE 12736+A,D : NEWT 
9120 FOR A"0 TO 62 : READ D : POKE 1 2480-1- A . D : NEXT 


3130 

FOR A- 

•• 0 

TO 

,£ # 

: READ 

D : POK 

E1241 € 

+ A, 

D 

: NE> 

:t 

9140 

FOR A" 

.10 

TO 


- READ 

D = POK 

F172 5? 

+A , 

D 

: NE> 

;t 

91 45 

FOR A- 

"0 

TO 

jt!T •**!• 

: POKES 

32+A, 

0 : NEXT 





9146 

FOR R- 

= 0 

TO 

*7 # 

: READ 

D • POK 

E12672 

+A, 

D 

- NE> 

:t 

9208 

RET UR! 

\ 










1 8000 

REM i 


* DATA 

FOR Y 

OUR 9 

PRCE c 

HIF 

' 



1 0005 

DATA 

0 

.24, 

0 , 

A , 24 , i“ 

, 4,24 

32 , 4 , 

60 , 

Ci 

2,4, 

i 


32 , 4 


31,3 

i *“’f 

5,195, 

168 






1 OR 1 0 

DATA 

i’ 

- 1 79 


24,7,1 

89 ■ 22 

4, 15,2 

55, 

•“l 

ci 

40,2 

'3 


| p Cj C 

...... 

-i irr cr 
L .• j.j 

pr 

55,236 

, 47, 1 

, 744 





1 0020 

data" 


9 , 1 

O nr 

.. j 

Pi Ci Ct 

nr- nr prrrr --.nrcr 

..j.j .* c.. J , 

»•**! 

i J ci 

Ci 

1 , 00 
J. , l—. 

4. 


255 , S 

3 *3 
!L u. 

4,0, 

195 ,0, O , 

0 ,0.0 

, 0,0 





10025 

DATA 

0 

0 ,0 









1 0030 

REM -i 

l;#; 

¥ DA 

TA 

FOR E 

NPLOS 

ION PT 

i 



i 0040 

DATA 

0 

.' 0,0 

.- 0 

, p 0,0 

, 130 , 

! ;1 4 , 64 

, 0, 

10 , 12 

' , 
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.* r *£. 

, 200,0, 

cl 

:3, 161,0,6,128,0 



1 0fi41 

DATA ft 


3.3 1 ,92,3, 4 ■64 - 

ft 


18050 

DRTR 1. 


, 5,0 ■ 9,16,0,70 ,0 

,32,29,34,16,2, 

128 


,0, 16/ 

P’1 

d ,32•1,32, 0 ,9, 0 , i 

0 


10068 

9Hi H U 


f, 4 ,0,64,0, 3 



10078 

REM m 

■M 

riflTR FOP FWP! 39 

T nw PT 9 ***: 


1. 0899 

99 tr i 


O t 1 f t . 1 ; ft ft ft f -j ( ft 

,44 , 0 , 4 , 0 , 0,0 , 0 

, 9 , 


32,0,0 

1 , 

0 ,72,5, 0,0 



1 0090 

DR T9 8 


2 0 « 1 35,169,1,1 > 

0 , 0 , 0 ,48,16,2,1 

7 ( 


32 . 8 , 3 

, 

8 , 8 , 2 , 0 , 0 , 8.16 



1 0 1 80 

DATA 1 

, 

9 .8 , 8 , 2 . 64 . 0 , R ,0 

, 0 . 9 , 0 , 12 P: ,p,i 


10110 

REM $* 

■¥ 

DRTR FOR RSTERO 

ID *4 : $ : M 


10120 

DFlTfl 8 


01 s 0 ; 01 . fl : 01 , 01 , 0,01 , 

0,64,0,0,232,0, 

rr 


198,0, 


,250,128,7/181,1 

92 


10130 

DRTR 1 

irr 

•~«trrr i -j c:“ «-;• - 7 . q 

160,23,255,192, 

62 • 


254.. 22 

4 

*7* ft *7> ^'J “7 ft / 7' 



10140 

2RTF! 5 

• 7 * 

, 189.192.27 118, 

128,22,59,9,15, 

92, 


0 ,5 ,22 

4 

, 0 , 1,1 28,0, 0 , 0,0 



10150 

DFlTfl 0 

j i 

8 , 8 



1VI16 8 

REM m 


DRTR FOR MISSIL 

F *** 


10173 

DATA 3 


24 , 0 , 024 , 0 g , 00 

, 0 , 0 , 24 , 0 ,R,24 , 

0 . 


0 - 60,0 


0, 126,0,0,24,0 



, -i r-i r> 

i K> : c <3 

DRTR 0 

, 

24, 0 , 0 ,24 0 , g, 40 

,R, 0 , 0 , 0 , 0 , 20.0 

, 0 , 


42 - 0,0 

, | 

20,0 , 0 , 66,0 



10198 

DRTR 3 


40 , 0 , 9 , 20 , 9 , 0 , 1 , 

0 ,9 , 64,8,0 , 3 ,0 


10208 

P9M ## 


DRTR FOR ALIEN 



10210 

DATA 8 


24,0,0,0,0,0,24, 

0 , 0 , 36 , 9 , 0 , 60 , 0 

, 0 , 


102 , 0 , 

1 

, 219,123,1,0,128 



18220 

DRTR 3 

, 

129,192,?,255,22 

4,2,219,64,7,24 

.. 


224,12 

,1 j 

255,43,24,24,24 



1 

DRTR 4 


24 12,240,62, 15 

, 0 , 0 , 0 , 0 , 0,0 ., 0 , 

0 * 0 


0,0 , 0 , 

0 

, 9 , 0 



18908 

POKE V 

-j- 

29,PEEK(V+29>+1 



18909 

POKE V 

-I- 

23 , PEEK < V+23 > + i : 

XC=50 


10910 

FOP fi= 

1 

TO 5 



18912 

FOR Z~ 

1 

T 0 yr • t-..!rr t 



10918 

POKE 2 

8 

40,199'POKE V+39 

'9 


18914 

FOR 7'^ 

1 

TO 80' NEXT 



19915 

POKE 2 

0 

40 ,195 : POKE V+39 

, 9 


18916 

FOR 7= 

i 

TO ’XC : NEXT 
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1.091 

MM, 

\ 

POKE 2 

04 

0 ,1 

35 ; P° ! ; 

•p y..|.. 

39 

, 7 


i. J. 

1 Q9 1 

3 

NEXT'p 

! j K 

! • J 

E 

+21,8: 

GOTO 

9 

881 0 


2001 

A 

PRINT" 

□ 


NELL. 

DONE 

- 

TON MANA 

ipti 



VOUE 

Or* 

II...V 

DEFEMC 

‘•E SH 

T p 

GET " 


P1 


PPM r; 

ip 

pp r: 

N 





0 fi 1 

*rr 

pp 7 j-.JT ! * 


TjPp 

T !“ L, < m 

} hip 

!< I 

NO ERSV 

THE 



COHQUE 

ST 

OF 

OUR 

PLANET 

If 


2084 

0 

PRINT : 

Dir 
( !’• 

:INT 

■PRINT 





2008 

0 

PRINT'Mill 

>0 V 

ny NT:” 

;H Tij 

P 

i ll THE T 

I ME 



MRCHINE 

EflC 

K FIND 

TRY 

PG 

p I h? ”; 


2805 

!j 

REM VE 

LL 

.ON 






20069 

GET fl!" 

SI 

: ■ ft 

SHOT- 

: ” U N 

THEN 1.0 


2807 

0 

Tp puc 

p- 

j\| n 

then f 

"HP 




2002 

0 

GOTO 2 

pc 

“j rC j“| 
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COSMIC JOURNEY 


Are you ready to brave the dangers of a Cosmic Journey? You 
must fly your space craft across the screen to the exit point on the 
other side. The game has a wide range of speed options and 
many different levels. Each time you successfully complete one 
screen you move onto the next level. Each new level will be 
harder than the last. 

Your final score in the game will relate to the speed you chose 
and the number of levelsyou completed. You get bonus points for 
flying at faster speeds. The first screen you traverse is empty but 
after that you will have to negotiate waves of asteroids and, in 
higher levels, a space barrier will block your path. 

Move your space ship to the left and the right with the “ J” key and 
the “K” key respectively. The “D” key will slow your ship and the 
“S” key will speed up your flight. 

At the beginning of the game you will be asked which speed you 
wish to try. There is no limit to the number you may enter but level 
three is easy, level five will provide a challenge and level ten is 
virtually impossible. 

When the journey begins, the screen will clear to black and your 
space ship will appear at the bottom. An exit point will be visible at 
the top of the screen. There will be a great blast of sound as your 
ship takes off. Then you must steer the ship across the screen 
and through the exit point. The screen will clear and a new level 
will be printed up. 

The second level has a scattering of obstacles and these grow 
more numerous as the game progresses. If your flying skills 
aren’t up to the level required, your ship will disappear in a very 
impressive explosion. 

Cosmic Journey was written by Daniel Quinn. 
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1 PEM M* COSMIC--JOURWEV *## 

2 '7=53248 ■ X- 125 : V-225 • ED-9 : BG=0 : L - 1 

3 POKF v+99 ■ ED • POKE V+33 .• BO : PR I NT CHR$ i 147 > 

4 FOR 7=1 TO 1 0: PRINT : NEXT 

5 pPTj-.1T JABO 4 ); "3C08MIC.JOURHEV" : REM BLUE 

6 PRINT TAB>' 14) ; ’53 SPEED "; : INPUT SR:REM 
ORANGE 

7 p=F42’72:POKE S+24,15 

3 POKE S+5, 192 : F'OKES+6, 192 
10 PRINT "IT 1: REM CLR SCRN 


110 

EOF 

I 

-0 TO 

69:PERD D 

: P 

OKE 1 

~OC;Cj 

+1 

• D 

NEXT 

120 

FOR 

I 

:-0 T0 

62 : READ D 

: n 

OKE 1 

■~i o« cr O' 

+i 

■ D 

NEXT 

•-I C; ir 

POL 

F 

V+21" 1 

: POKE V+3 

9 , 

14 





O S/j “•? 

FOR 

E 

V ■ X : P 

OKE V+1,V 







403 

K=I 

NT 

(RNDCl 

>*20)+10: 

FOR A-1024 

TO 

1024+K 


POL 

:e 

S+fl , BD 

:POKE A,1 

60 

: NEXT 





40-1 

EOF 

N 

-1027+ 

K TO 1868 


POKE 

S+N, 

BD 

•POKEN, 


: HE 

:xt 

: POKE 

V+39,3 







499 

POE 

c 

L.. 

V+30,0 

:POKE V+3 

1, 

0 : POK 

E 2040 

1: 

92 

5O0 

p=F 

EEK C197 > 

:POKE S+2 

4, 

15 = V* 

V--SP 




510 

IF 

p- 

34 THEN X-X-SP 







520 

IF 

F- 

37 THEN X-X+SP 







521 

IF 

p- 

18 THEN V-V+SPX 







522 

IF 

p= 

13 THE 

N V-V-SP* 







525 

IF 

X-C 

1 THEN 

890 







530 

POKES 

+1 .■ X/2 

: POKE S,V 

: POKE 8 

+4 . 1 

r 



531 

POk 

E 

8+1,V : 

POKE S,X/ 

0 : 

POKE 

8+4 , 

12 

9 


890 

IF 

1 ,1 

255 TH 

EN X-X--255 : 

POKE 

V+l 6 

, 1 



391 

IF 


0 THEN 

POKF V+l 

6, 

0 : X=2 

55+X 




900 

POL 

•p 

V+0 , X t 

POKE V+l, 

! ! 

Y 






910 

IF 

PEEK ( V+3 

1) AND 1- 

1 

THEN 

5000 

: REM 

GOTO 


500@ ** IF CRASH ** 

920 IF V>33 THEN 990 

930 7-229:POKE V+21.O : L=L+1 : OK-K 

935 PRINT "IT OC=SC+L*$P+10 : REN CLR SCRN 

936 FOR Z-l TO 7 : PRINT : NEXT 

937 PRINT TAB<13);" SCORE : ;SC : FOR A=1 TO 500 
: NEXT 

940 PR I NT "Cl" : FOR A-1984 TO 1984+OK: POKE 54272+fl 
,ED : REM CLR SCRN 
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942 POKE ft,160:NEXT:FOR N=1987+0K TO 2023 

945 POKE S+M, BD : POKE H.. 160 : NEXT 

956 K= I NT < PHD < 1 > *20 > +10: PR I NT " : REM HOME 

BONN CPSR 

954 FOR ft— 1024 TO 1024+K: POKE S+R, ED •’ POKE fl, 

160:NEXT 

955 FOR N=1.027+K TO 1063: POKE 54272+N, BD : POKE 
N, 169:NEXT:V=229 

956 IF L<6 THEN L1=I_:G0T'0 969 

957 Oj,J= I NT ( < K+OK) X2> 

958 FOR R=1384 TO 1384+QM : POKE A,160:POKE 
54272-+-R.BD : NEXT 

960 FOR A=QW+1389 TO 1423 : POKE R.. 160 : POKE 
54272+fl , BD •' NEXT 
9(65 l 1 =F;R 

969 POK'F V , X : POKF V+l, V : POKE V+21,1 : POKE V+39,3 

970 PRT^rr ,, 9!PM^MPl#lMPM'’ : FOP 7=1 TO 120=RN=INT 
<RND<1)*10> : REM HOME DOWN CRSR 

975 IF RNCL1/2 THEN PR I NT "Hi:" : : GOTO 983 • REM 
ORANGE 

982 PRINT" "; 

99,9 i-JFXT 

984 FOR 2=255 TO :! STEP ~l :ROKE S+l, Z : POKE 
S.. 256-2 : NEXT 

985 FOR 7=1 TO 10:FOR 72=1 TO 2 

986 POKE S+l,7:POKE S,22:POKE S+l,82=POKE 3,7: 
NEXT:NEXT 

990 POKE S+l,V:POKE 8,V 

999 POKE 54273,X:POKE 54272•V 

1000 GOTO 500 

5000 REM *** IF CRASH *** 

5820 P 0 K E 2040, 193 

5080 FOR 7=1 TO 30 : POKE V+23,1:ROKE V+23,0•POKE 
V+29,1 : POKE V+29,8 

5040 POKE V+23, 17POKE V+29,1 : POKE V+23,9 = POKE 
V+23,0:NEXT 

5050 POKE 54273,0:POKE 54272,0 
510O PR I NT "21" ; REM CLEAR SCREEN 
5110 PRINT TAB<15).:" CAME OVER " 

5120 RRINT 1 ' SMiuMhIpMsI" : REM 8 CRSR DOWN 
2 j or r,p tft TAB < 1 4■'; "FIHRL SCORE : "SC 
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5135 PR I NT TAB < 14 >; ,! FI HRL LEVEL : " 1L 
5140 POKE V+21,0 
5208 END 


1 0000 

REM *** 

BATA 

FOR SPACE SHIP W* 

1 00 1 0 

DATA 8,1 

6,0, 

0,56,0,0,56,0,0,56 

•{ fr« ~i 

BATA 0,0 

, 56 , 

0,0,56,0,O,56,0,0,56,0,0,124, 


0,0, 124 , 

0,0, 

56,0,0,56,0,0,56 

1 0030 

BATA 0,0 

.56,i 

0,0,56,0,0,56,0,0,124,0,8,124 


0,0,0,0 , 

0,0, 

0,0,0,0 

10035 

REN 

BATA 

FOR EXPLOSION *** 

1 0040 

■frpTq , 


, 0,0,01,2,0,0, 13,80,34,8, 129 


0,41,16, 

1,50 

,0,8,152,64, 17 

13050 

BATA 165 

, 9 b , ! 

3,110,64,129,255,72,6,174,32, 


0,254,4, 

16 .■ 2 

36,0,0,25 

1 0060 

BATA 112 

, 0.2 

4,64,3,0,35,17,45,0,8,68,0,0, 


0, 6, 123, 

9,32 
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SPACE RACE 


This short program creates a very challenging game, complete 
with levels of difficulty. You are the pilot of a V-wing space racer. 
You must race against the clock, flying a slalom course through 
blue star. Each time you fly through a star gate your score is 
incremented. After 30 gates have been passed or flown through 
the game ends and you are given your score. 

There are four levels of difficulty in this game. Level four is for 
beginners and level one is strictly for experts only. 

After the title appears on the screen, you will be asked which level 
of difficulty you wish to try. When you have entered this, the 
screen will clear and be set to black. Your V-shaped space racer 
will be positioned in the middle of the screen on the top row. The 
game is then on. The “M” key moves your racer to the right and 
the “Z” key moves it to the left. Each time you press a key the 
racer moves one space in the required direction. 

The blue star gates will rush toward you and you must fly through 
the blue area to score points. After30 gates have passed, you will 
be shown your score. The game also has a high score feature so 
that you can work at improving your skills. 

Lines 600 to 650 display the game title and ask you for your level 
of difficulty. Line 640 accepts your input and then we RETURN to 
the main game. 

Line 15 sets the starting position of your space craft across the 
screen (the X axis). Line 50 multiplies your selected level of 
difficulty by four. The screen is then cleared and set to black. 

Line 120 POKES your V-racer onto the screen. This is done by 
adding the value of X to 1024, the value of the top left hand corner 
location of the screen memory. The rest of the line POKES a value 
into the corresponding location in the color memory. 

Line 130 adds one to our counter and then checks to see if the 
counter is greater than a number picked at random between four 
and eleven plus the value of A. If it is, we then go to the routine in 
lines 200 to 220. This routine sets our counter back to zero and 
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then gives variable D a value picked at random between ten and 
thirty. The variable E is incremented by one. E is used to count 
the number of star gates passed. When E equals thirty one, the 
game ends. 

Lines 210 and 215 PRINT the star gate on the screen using 
graphic characters from the “N” and “M” keys on the keyboard 
and several reversed spaces. The variable D, set in line 200, is 
then used to TAB the star gate across the screen. 

We go back to the main routine where line 135 POKES a blank 
space into the current location of your space racer. This makes 
sure that two space racers don’t appear on the screen at the 
same time when the space racer is moving across the screen. 

Line 140 GETs your input from the keyboard. Lines 150 and 160 
check the keyboard input to see if one of the direction keys has 
been pressed. If so, one is added to, or subracted from, the value 
of X depending on which key has been pressed. Line 165 then 
POKEs your space racer onto the screen again, in its new 
position if you have pressed a key, or in its original position if you 
haven’t. 

Line 170 uses the level of difficulty to provide a delay loop, which 
is, of course, longer for the easier levels. This loop has the effect 
of slowing down the program. 

Line 175 calls up the routine in lines 300 and 320. This routine 
uses PEEK to check the values of the locations on either side of 
your racer. If it finds a reverse space, (value 160), this means that 
you have flown through a star gate and yourscore is incremented. 

Line 180 loops back to the start of the flight routine for another 
pass. Line 110, at the start of this routine, makes sure that a new 
line is printed each time. This keeps the star gates moving 
smoothly up the screen. The star gates appear to jump when they 
arrive on the screen. This is caused by three lines being printed 
instead of the usual one. 



5 REM SPACE RACE 

10 PRINT "IT : GOSUB 600 : REM CLR SCRN 
15 X=29 
50 fl=A#4 
68 PRINT "IT 

70 POKE 53288,8 ; POKE 53281,0 
100 RFM ROUTINE 
110 PRINT 

120 POKE 1024+X,22 : POKE 55296+X,7 
130 C=C+1 : IF C> I NT (RNB (1 > #7 > + 4+A THEN 200 
135 POKE 1024+X,A6 
140 GET fif 

159 IF A$="2" THEN X=X~1 

160 IF Of-"M" THEN X=X+1 

165 POKE 1024+X , 22 : POKE 552A6+X , 7 
170 FOR T=1 TO A : NEXT T 
175 GOSUE 300 
180 GOTO 100 

3O0 C~0 : E“ I NT ( RNB 1) $20 +1A 

205 E~E+1 : IF E=31 THEN PRINT 11 SKIGRME OVER" = FOR 
T=1 TO 2000 : NEXT T : GOSUE 500 

206 REM REV ON HOME 

210 PRINT TAB (ID "sf\ ./" : REM WHITE 

212 PRINT TAB (ID " S3 5" : REM REV ON BLUE 

THREE SPACES REV OFF 

215 PRINT TAB (ID "at/ V'REM WHITE 
220 GOTO 100 

300 IF PEEK(1024+X-1> = 160 OR PEEK(1824+X+1) = 168 
THEN SC=SC+10*E 

320 RETURN 

500 POKE 53280,2 ; POKE 53281,3 : PRINT "IT' 

510 PRINT TAB'" 1 0'? "r^priBiTPlBfTiflTfrr^riUR SCORE WAS"; SC 
528 IF SOHS THEN HS=SC 

530 PRINT TAB(4> "MITHE BEST SCORE SO FAR IS" 
;HS 

540 FOR TB~1 TO 1000-NEXT 

550 PRINT TAB(4) "SMO VOU WANT ANOTHER GAME 
(V/N)"; 


568 INPUT AT 

578 IF AT="V" THEN SC~0 ; E=8 : GOTO 18 
580 END 


63 






r fyj j7{ 

PRINT 

11 nnii 

POOR ORRPP : ? :pfp 

!E 53281,6 

“ •! p 

pp 7 j-.JT 

TAB 

; i 4 ) : t kI J : 

iPftCE RACE" 

r ■**!' o - 

FHR T 1 ' 

r 0 1500: NEXT tb 


£30 

PR I NT 

TAB 

:'?'•• "mikCHOOSE ' FL 

.. IGHT SPEED 

540 

IHPUT 

C] 



"crp 

r* : r-~r ? ; r*t j. 

.1 
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GHOSTIE 


In this game you are the fearless warrior charged with the difficult 
task of keeping the nasty ghosties out of the grave-yard. You 
must prevent the red ghost from gaining safety amongst the 
headstones. If you kill any of the ghosts you stop the red ghost. 
You will score more points for killing the red ghost but he is 
harder to fight than the others. You can move your warrior all 
around the screen by using either the keyboard or the joystickTo 
destroy a ghost you must press the fire button (or the space bar in 
the keyboard version) just before you engage the ghosts in 
combat. 

The first listing of the game is the joystick version and the second 
listing is for the keyboard. When playing the keyboard version the 
“F” key moves your warrior up the screen and the “V” key moves 
him down the screen. The “J” and “K” keys are for left and right 
movement respectively. To kill a ghost, use the space bar. 

The game can end in any one of three ways. The ghosts can kill 
you, the red ghost can get past you into the graveyard or if you 
stray into the top left hand corner of the screen (where the ghosts 
appear) you will be zapped. 

When you RUN the game, after choosing one of four levels of 
difficulty, the screen clears to black and the game is on. 

The graveyard is PRINTed at the bottom of the screen, your 
warrior is somewhere in the middle and the ghosts begin to enter 
from the top left hand corner of the screen. 

The initialisation routine is contained in lines 2 to 22. The sprites 
are set up by lines 13 and 195 and 197. These sprites are used for 
the warrior and the two ghosts. The warrior is a particularly good 
sprite and looks great on the screen. 

Line 126 reads the joystick input (or the keyboard input). The 
score is worked out in line 27 using the value of Tl$, the internal 
clock. 

Lines 28 to 35 use the value from the input to change the X and Y 
value which are used to POKE the warrior sprite onto the screen. 
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Lines 36 to 39 are to make sure that the warrior stays on the 
screen and are valuable as safeguards. It is always agood idea to 
put such safeguards into a program which uses moving graphics. 
This prevents the values in the POKE statements leaving the 
screen memory locations and getting in with other memory 
locations. 

The lines 41 to 55 check to see if either of the ghosts is in a direct 
line with the warrior and if so, we then go down to the routine in 
lines 300 to 449 where the ghosts are moved in to follow our man. 
If the ghosts aren’t in line with him, lines 59 to 69 move the red 
ghost around the screen at random. 

Line 70 looks to see if the man has wandered into the top left 
hand corner of the screen and, if he has, ‘zaps’ him.This prevents 
a player from sitting there and waiting for the ghosts to appear. 

The sprites are POKEd into the screen memory locations by lines 
100 and 105. Lines 119 and 120 check for a collision between 
sprites. Lines 130 and 150 look to see if the fire button has been 
pressed (or if space bar has been hit) before the collision. Line 
160 PRI NTs the current score and then goes back to the start of 
the game loop. 

Lines 200 to 275 contain the DATA for the sprites. This must be 
typed in very carefully. 

The lines 450 to 452 test to see if the fire button was pressed 
during a collision. If it was, lines 460 to 480 PRINT up the 
message that the ghost was destroyed and then start off two 
more ghosts.lf it wasn’t, lines 500 to 539 PRI NT the message that 
the man was beaten and tell you your score. You are also given 
the option of another game. 

Lines 40 to 545 re-initialise the program for a new game. Lines 
547 to 550 end the whole program if you wish to stop. 

If the red ghost reaches the graveyard, lines 1000 and 1100 tell 
you that you were beaten and call up the end routine. 

The opening sequence which asks for the level of difficulty and 
then clears the screen and PRINTS the graveyard, can be found 
in lines 3000 to 5200. Ghostie was written by William Leader. 
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1 REM ### GHOST IE JOYSTICK VERSION *## 

2 PRXNT”71":OG=0 : POKE 53281,8 : POKE 53288,9 : REM 


3 RESTORE 
10 ’.,.'=53248 : POKE 

12 poke 2842.. 194 

13 f6r'''n=12' : 11E t 1 


'+21 28 

POKE 2943,195 
12478 : REPP Q 


POKE 2044,196 
POKE N,0 : NEXT• 


GOTO 195 


1 ^ 

! — • •*“< 

icr • 
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=60 0H=1 

00 

’ POK 

E V+43,14: 
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NT 
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i#RND 
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X=i 

00 
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IF 



.17 FIND 

K<“ 

X+17 

THEN 15 
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IF 

K 
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i« 
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20 
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000 
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cr 
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£~\ T 
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_ T i, j 

r< r- %v -“*1 
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IF 
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4 THEN V 
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IF 
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8 THEN X 
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IF 
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::::: 

9 THEN V 
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::::: 

10 THEN 

»i ..... 

T. 

y+CM 

: X=X+CM 



3 b 

IF 

y-.. 
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•L 
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1 
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rx 
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IF 


I 
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!<•■!•■ 1 0 

THEN 420 



59 

0 = T 

NT 

\ 

2#RND<1) 

> 4- 

1 




60 

if" 

G= 

: 1 

THEN L= 

• 1 . 

L- 

I NT < 

PM#ENDC1>) 

! ,.L P 


61 

T p 
u : 

G- 


THEN L~ 

=L+ 

11-.IT < 

PM#RNIK 1)) 

- +5 : 


62 

IF 
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DATA 0,0,IE,© 
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DATA 0 , 15 , 2 , 0 

, 4 pi ; 6 

,0,9 
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.•’•j 


0 , 40 ,1. 26 , 0 , 56 
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, 230 
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0 
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DATA 97,172,0 

, 66 2 

16 > 0 


2,184,0,7,38,0,12 
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1,240 

, 0 
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0 . 97, 

156, 

0 
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...IT n 

3! 

" ' PR 


SCORE ISS3"; SC : REM CLR SCRH LT RED 

531 IF SO20000 THEN PRINT"A FRHT.RSTIC SCORE" 

:GOTO 535 

532 IF SO 3.0000 THEN PR I NT" R GREAT SCORE" : 

GOTO 535 

533 IF SCI'5 0O0 THEN PR I NT "A COOL SCORE" : 

GOTO 535 

534 IF SOS1000 THEN PRINT"A ROTTEN SCORE" 

535 PRINT"MOTiQ '-'Oil NR NT ANOTHER GAME" : REM DOWN 
CRSR VELLUM 
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CT 

Z) -.J o 

GET m< 

>"V" THEN 538 

ET'-i-V 
. 1 . **! <’ 

j-fijn p;4Pj 


CTOC; 

TF PS<~> " M 51 TH 

EN 536 


RflTT! 547 


540 

PRINT"*!" : SC=0 

■ .TT=0 ■ 8G--0 

541 

Pfjk’F '.‘-{.pi ; ci 


542 

I - TNT < 200#RND 

< 1 > i-40 ‘j : \ £7 !•::>! : RE-2 

543 

L~25 : P~6Fi • TF 

I>X~20 RNTi KX+29 THEN 

rr a nr 

. j . j 

FOR NM=1 TO 2 

000:NEXT:TI$="000000":3 


GOTO 5O00 


547 

POKE V+21,0 


543 

PRINT"WWWWI®V 

! E BVE" • FOR T =1 TO 2000: 


PRINT"!XJ" : POK 

E 53281,6 

550 

REM DOWN CPSP 

1 L.T BLUE CLR SCRN 

551 

END 



1000 POKE V+7,239 

1180 PR I NT" HUE BERT VOID" ■' FORE* i TO2680 : NEXT : 

30=30-1080: POKEV+21,0 : PRINT''IT': OOTO530 
1105 REM USE ABBREVIATION FOR PRINT OR LINE 
WON'T FIT 


000 

PR I NT " SKMpM#AT DIFFI CULTV? " 

005 

PR I NT" •:! V=V 

ERV Hf 

R B X H = H Pi R B / A=8 V E R fl G E / 


E=ERSV)" 



u 1 y 

INPUT RT$ 



180 

IF RT$="E" 

THEN 

EM=10 ; PM=5 : CM=14 

2S0 

IF RT$="fi" 

THEN 

EM=12 : PM=8 ; CM=12 

21 y 

IF RT$="H" 

THEN 

EM= 15; PM--10 : CM= 10 

2 2 y 

r p* p. y .-$• . hi in 

THEN 

EM=20 : PM=15 : CM=12 

250 

PRINT"□":P 

PINT ■ F 

: ’OKE 53281,0 

1400 

PRINT"!!" : FR= 1S : F 

?E=2:FOR TRT=1 TO 180:NEXT 

; 0 8 8 

FOR R=1 TC 

21 : PF 

1 1NT:NEXT 

! 100 

PRINT TABC 

15) "23 

" : REM GRAY 2 

it 10 

PRINT TAB< 

15 >" i 

1 il II" 

1120 

PRINT TRB( 

15)":::%: 

...... .......Jf 

i 130 

PRINT TflB< 

15)" M 

1 m m " : POKE V+21,28:IF 


A$= !, ¥" THEN 100 
5208 GOTO 22 
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1 REM m* GHOST I 

2 PRINT"IT' : 00=0 : 


E KEYBOARD VERSION 
POKE 53281,O:POKE 


+ :<ji* + 

53280,8:REM 


CLP 3CRH 


3 pirojfipp 


10 

V=53248•POKE 

4-1-21 ,28 


1 V 

POKE 2042, 194 

: POKE 20 

43/ 1 95•POKE 2044,1 

1 o 

FOR N=12416 T 

9 i 94*70 ; 

READ Q ■POKE H,Q:NE 


GOTO 195 



1 

L=25:R=68 : GH=108:POKE 

V+43,14:POKE V+42 


POKE V+41,10 



•i ,:7 

I = I NT <: 200*RND 

1 >+4.0) : 

K=INT ( 200#RND(1>+8 


X=100•V=100 



13 

IF !ON~17 AND 

KCK+l? 

THEN 15 

i 9 

IF IOL-17 fiMB 

KCN+17 

THEN 15 

1 |.-i 

G0TO 3000 




POKE 53231.-0: 

30T0 100 


TV-PEEK <197) : 

rp::: ; 1 • Jf 

jy=60 THEN FR=10 


SC=3C+VAL<TI $ 

:< - < A0#2 ) 



IF JV=21 THEN 

V=V-CM 


q 

IP J V 3 1 THEN 

V^V+CM 


30 

IF jv=34 THEN 

N=N-CM 


o •? 

IF THEN 

X-X+CM 


3 b 

IF '0254 THEN 

nr V [ p 


O "7 

IF KOI THEN 

=:•<••! 15 



TF V>250 THEN 

v-y~-i5 


39 

TF y," i THFN V: 

=V+15 


d 1 

IF N>L- i0 AND 

NCI. +■ 10 

THEN 30O 

44 

TF VOP--3 0 AND 

VCR+10 

THEN 400 

51 

IF NOT-10 RND 

NCI+10 

THEN 415 

rr nr 

j ,j 

IF K .10 AND 

V<!<+10 

THEN 420 


59 0= I NT ( 2NRND1.) > +1 

60 IF 0=1 THEN L=L~INT<PM*RNB < 1>> +5 
El IF 0=2 THEN ! =1 +1 NT pH#PNTI < 1.> +5 : 

62 IF L>200 THEN L=L--10 

63 IF L.<5 THEN 1=1 + 10 

64 G=INT < 2#RNB < 1 > > +1 

65 IF 0=1 THEN R=R-INT<<PM-2>*RMBCl>> +5 : 

66 IF 0=2 THEN R=R+1NT < ( PM+2 >*RND < 1> >+5 

67 IF R>210 AND <L>140 AND LC208) THEN 1000 

68 IF R3230 THEN R=238 
68 IF RC5 THEN R=R+18 
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78 I FX<44flNDY<45THENPRI NT " VOU ARE ZAPPED": 
FORFGH= 1102008 : NEXT : POKEV+21 .■ @ : GQT0527 


1 00 

PO! 

KE 

V 1-4, X : PO 

KE V 

•i*6 •! • 

POKE 

V+8, I 





■t ;7.cr 

PQ! 

KE 

u.fP m • prjj 

KE V 

4.T p • 

POKE 

y 9 , K 





119 

IF 

•’ L 

>X“10 AHD LC 

X+10) 

! 

AHD 

<R>V-1 

5 

AHD 




PC 

y.f i 

!5> THEN 


r:- 1-500 


GOT 

0 449 





129 

IF 

r* T 

10 ah 

D K 

X* j 0 ) 


AHD 

aov-i 

5 

AHD 




!«. 

V+1 

5> THEN 

4 4 pi 









100 

IT 

rrp 

::: r; 1 f t TMFN 

1 60 









1 00 

IF 

pp 

016 THEM AG 

=PG+1 


IF ! 

AG=5 THEH 

..IT 

:r.:: 

0 

153 

IF 

L> 

200 THEH 

i :::n 1 

U~. 4« 

90 








160 

PR 

T 7 

"58";SC'G 

CTO 

26:PFM 

HOME CRSR 





1 93 

p p 

!<p 

Vf 21,4 










195 


R 8 

2=12480 

TO 1 

2542 : 

READ 

G2 : PQK 

E 

,*•% 1 ^, 

t ii" 1 

Q 

, 


HE: 

XT 











•! QV 

FO 

p 

3=12544 

TO 1 

2606 : 

READ 

Q3■POKE ' 

CO * 

Q 

O * 


HE 

XT : 

GOTO 15 










200 

fl 

7p 

0 • 0,16 , A 

, 94 , 

8 - 0 ,3 

6 

A 

, :. f , 

0,36,2, 

0 , 

94 , 

Cj 

, 0 , 


24 


8,230,14 

, i, i 

23,25 

*T* 







21 g 

DATA 

3,129,24 

3, 15 

, 12!?, 

•9 

40, 

14,66,0 

, 9 

3,6 


, 0 , 


56 

, 60 

, 0, 1 12,6 

2,0, 

224,8 

5 

,0 






;?;~Q 

Tj f\ 

T fl 

64,5,0,1 

, 5,0 

, 2, 5, 

0 

, 5 , 1 

5,0, 10, 

5 

0,10 
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258 

DA 

TA 

0, 16,2,0 

, 40, 

6, 0 ,8 

4 

, 14 

, 0, 186, 

30 

, 0, 

c 

4,6; 


0, 

48, 

126,0,56 

, 254 

■, 0 ,22 

1 >mm t 

'***! 

j ,j 

0 





•;-inrjrr 

DR 

TA 

1,215,22 

6,25 

15,999 , 

192 

, ppp . q«= 

I, 1 

O 0 

1 

si. t‘ , 


•“i 

:4, e 

1,36,222, 

0,97,156, 

0 






260 

DATA 

97,172,0 

[, 66 , 

216, F 

1 .r 

2, 1 

84,0,7, 

pc 

:, 0 , 

1 

ti*»» 


17 

6 .■ 0 

1,31,240, 

0, 31 

, 240, 

0 







265 

DATA 

0, 16,2,0 

, 40, 

6,8,8 

4 

, 14 

, 0 , 186 , 

30 

, 0 , 

0 

4,6! 


0, 

48, 

126,0,56 

, 254 

, 0,22 

O 

. \ J 

, 238 





070 

DATA 

1,215,22 

6,255,239 

, 

192 

, 255,95 

1 

9 C| 

1 

*!!*. r , 


-“iO 

4,0 

, Q f. . 999 . 

0,97 

, 156, 

0 







•~:“7rr 

DATA 

97,172,0 

, 66, 

91 b , W 

.»! 

2 , 1 : 

34 , 0 , 7 , 

00 

,0, 

1 

Cm .* 


17i 

6, 0 

, 31,240,! 

0,31 

,240, 

0 







900 

IF 

l I,** 

'i * 

R THEH R 

-R-EM : GOTO 

51 






3 1 0 

R= 

R+EM : GOTO 5 

1 









400 

IF 

i ( . M 

L THEH L 

=L~EM=GOTO 

51 
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410 

L=L+EM 

: GOTO 51 


a •? nr 

IF VCK 

T |...| ppj j.;** .pjvj 

! :GOTO 59 

4 1 IN 

!<•"!<•■!• EM 

‘GOTO 1.00 


420 

T p y.:-- j 

THEN I — I—EM 

! : GOTO 59 

421 

i—« 

ll 

: GOTO 100 


443' 

TP TT~ 

2 THEN 5O0 


450 

rp p P ~; 

? THEN : 

GOTO 26 


4 5 ;[ T p p P ,p 1 £ J j..| p j-,j p p T j-.j J « 5 Q} J Q 0 J M I MH” : RF f'1 IJ L R 

SCRN PURPLE LT BLUE 
452 IF FR~16 THEN 500 

d g 5 p n o | i 1 t n 1 ;”} pi a : ).,| p V:* T : P p T kj y « 1 pp 

470 PRINT TRB(12>"ffBUT ANOTHER TWCCT' : 80=80+1500 

472 REM PURPLE LT BLUE ' .~ 

475 FOR U~ 1 TO 1080 : NEXT • RG=0 : FR= i 5 : PR I NT " 71" 

478 I = I NT < 200*RNn 1 +40 :! ET K= T 

479 IF I>X-20flNDKX+20 THEN 477 

480 fi$="V” : GOTO 5000 
500 F"OR py=i TO 1.0 

505 POKE 58281 . 1 0 '• EOR T=t TO 1 00 : NEXT 
510 POKE 5328NN PQR T=1. TO im U-IEXT 
520 NEXT': POKE V+21..0 

525 PRIHT'TSSHE GOT VOLW :FOR C=1 TO 1000:NEXT: 

GOTO 580:REM CLR SCRN LT RED 
5.27 1 00 : V-100 

539 POKE 53281.. 0 : PR I NT "71" : PR I NT " VOUR FIHAL 
SCORE IS®"SC: REM CLR SCRN LT RED 

531 IF SOL20O00 THEN PRINT"R FRNTRSTIC SCORE" 

:GOTO 535 

532 IF SO10009 THEN PRINT"A GREAT SCORE" 

:GOTO 535 

533 IF SO5000 THEN PRINT"!-! COOL SCORE" 

:goto 535 

534 IF SC<1080 THEN PRINT"A ROTTEN SCORE" 

535 PRINT"WPluEiO VOU WANT ANOTHER GAME" : REM BONN 
OR SR VELA... ON 

5 3 £ n E T f\ $ ■ IF A $ < >"V" THE H 5 3 8 

537 GOTO 540 

538 IF A$0"N" THEN 536 
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539 GOTO 547 

540 PR I NT" 5!" ' SC-8 : JT-8 : R0=8 

541 POKE ','+21,0 

54? I « I NT (288*RND -11 > +48 > : LET K= I: RE=2 

543 L=25 ; R=bQ ■ TR T X .2G AND KX+20 THEN 541 

545 FOR NM—1 TO 2088:NEXT : TIf="888888" : SC=8 : 

GOTO 5880 
547 POKE V+21,8 

549 PR I NT" Wf!MsI©' T 'E B'r'E" : FOR T-l TO 2888 : NEXT : 
PR I NT" !T3" : POKE 53281,6 

558 REM ■ DOWN CRSR L..T BLUE CLR SCRN 
551 END 

1088 POKE V+7,238 

1183 PR I NT" nil E BERT VGU!T : F0RE=1T028@8 : MELT • 
SC-SC -1008 ■ POKE V+21,8 • PRINT":]": G0T0538 
1185 REM USE ABBREVIATION FOR PRINT OR LINE 
WON'T FIT 

3085 PR I NT" Cv'== V£^71^3D!■-’R—RVERftGE 



E=€RSV>" 


3810 

INPUT RTT 


31 00 

IF RT$="E" THEN EM- 

18 : PM=5 ; CM=M 

3200 

IF RT$-"A" THEN EM- 

12 ; PM-8 : CM-12 

3218 

IF RTT-"H" THEN EM-- 

15 : PM=10 : CM-18 

3220 

IF RT$-"V" THEN EM- 

28 : PM-15 : CM-12 

2250 

PR I NT "21" : PR I NT POKE 

53281; 0 

3403 

PRINT";FR-16;RE-S 

'FOR TRT=1 TO 100 NEXT 

508 y 

FOR R=i TO 21 ; PRINT 

: NEXT 

5100 

PRINT TAB(15 

" : REM ORRV 2 

5118 

PRINT TAB(15>"!1 1 

! II" 

5120 

PRINT TflE(15)"s « 

«i 

5138 

PRINT TAB(15 >"iil I 
At="V" THEN 180 


5208 

GOTO 22 
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ASTROS MASH 


Arcade action and excitement is provided by this game written by 
William Leader. The game uses sprite graphics, the sound 
generating capabilities of the Commodore 64 and nine levels of 
difficulty to provide a very challenging game. 

Your aim is to protect your star base from a shower of asteroids. 
Your space ship must destroy the asteroids with its blaster to 
prevent them from falling onto the base below. If three asteroids 
get past you, or if you collide with an asteroid, the game is over. 
After you have destroyed ten asteroids the game automatically 
advances to the next level of difficulty. 

We have provided two listings of Astrosmash, the first one is a 
joystick operated version with the joystick plugged into port 
nu mber two. The joystick moves your ship left and right and the fire 
button fires the blaster. The second version is keyboard operated 
and in this game the “Z” key moves the ship to the left, the “L” key 
moves the ship to the right and the space bar fires your blaster. 

After the colourful opening sequence, you will be asked to 
INPUT a level of difficulty. Level one is the easiest and level nine 
the most difficult. After you have made your selection, the screen 
will clear and be set to black. A background of stars appears with 
your spaceship at the bottom of the screen. After a short delay, 
asteroids will begin falling toward you. From then on it is up to you 
to save your star base from the asteroid shower. 

Lines 1 to 24 initialise the program, setting up the starting values 
for all the variables. Lines 11 to 24 set up the sprite registers and 
read in the data to build the sprites. 

Line 28 reads the INPUT from the joystick or keyboard. Then 
lines 30 and 31 use the values and the space ship is moved and 
tilted accordingly. Variable PO controls the tilt of the ship. Value 1 
is tilt left, value 2 is upright and value 3 is tilt right. The score is 
printed by line 33. 

Lines 50 to 55 get the relevant memory locations for the ship, 
depending on which way it is tilted. Line 60 moves the asteroids. 
The variable SP is the speed at which they move. This is 
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determined by the level of difficulty. Line 65 and line 66 make 
sure that the asteroids stay on the screen. 

Lines 70 and 74 check to see if the asteroid has reached the 
bottom of the screen and, if so, increment the variable HIT. If HIT 
equals three then we go to the routine which ends the game. 

Line 80 checks to see if any of the sprites have collided, then 
lines 82 and 83 test to find what has collided with what. Line 85 
counts the number of destroyed asteroids and advances the 
program to the next level after ten hits have been scored. 

Lines 90 to 100 POKE the sprites into the correct screen 
locations. Line 115 moves your shot if one is currently on the 
screen. Line 118 checks to see if the fire button has been 
pressed, and if it has, and there is no current shot on the screen, 
starts a shot on its way. Line 120 sets the whole loop in motion 
once again. 

Lines 130 to 275 contain the DATA for the sprites. Take extra 
care to enter these lines accurately. A mistake in these DATA 
statements will cause problems with the sprites on the screen. 

Lines300to310move your shot on the screen. FD is the variable 
for fire direction. Value 1 moves your shot to the left, value 2 
moves it straight up the screen, and value 3 moves your shot to 
the right. Collision checks are made in lines 320 to 530. 

The explosion for the first asteroid is POKEd onto the screen by 
lines 550 to 565. The second asteroid’s explosion is handled by 
lines 570 to 585. The explosion of the space ship is controlled by 
lines 700 to 720. 

The end routine is held in lines 750 to 800. The colourful title 
sequence is in lines 900 to 2220. The sound routines are in lines 
3000 to 3220. 

Lines 4000 to 4050 are the routine which advances the game to 
the next level of difficulty after ten asteroids have been hit. The 
final lines, 4100 to 4200 turn off the sound channels. 
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1 REM ### RSIROSMASH 

2 REM *** JOVSTICK VERSION *** 

5 POKE 53231,18 : POKE 53288,19 ; PRINT " 23 " : REM CLR 
SCRN 

6 X2=2884 : RND < 1. > +58 • V2=40$RNIi < 1 > ; X3=280#RHD < 1) 
+50 : V2=48#RND C 1 > 

'J jyj i, / —* p t >H O" ■ C i***‘ —*■ j*/| 

1 i PQ*2 Np6kE " 2844, 196 ■ POKE 2045,197 
12 POKE2840,192: RQKE2041,193 '■ P0KE2842,194- X" 155 



■ V= 

13' 

3 : POi 

<E204 

3, 19' 

5 : 

POK 

E204* 

5,193 





i 3 

FOR 

o 

“ 125 

44' TO 

126 

06 

: PC 

on q 

:POKE S, 

Q : 

NE 

XT 


14 

RES 

TO 

RE : F 

DR S= 

1268 


TO 

1267 

0 : READ Q 

; p 

OK 

E Z 

;, q 


: NE 

XT 












15 

FOR 

C 

= i 22 

38 TO 

1 2 3 

58 

: RE 

on o 

; POKE s, 

Q : 

HE 

XT 


17 

FOR 

1*2 

= 123 

52 TO 

124 

14 

: RERD Q 

■■POKE S, 

Q : 

HE 

1 


20 

FOR 

3 

= 124 

1 c 

124 

"7 «“i 

• RE 

fid q 

: POKE S, 

Q : 

NE 

XT 


21 

pT'ip 

6* 

1 24 

30 TO 

125 

.1 

«• + C ’ 

■RE 

Fill Q 

■POKE S, 

; 

NE 

XT 


1—** 1—♦ 

FOR 


~ i 26 

72 TO 

i 2 ? 

34 

RE 

Fill Q 

; POKE 8.* 

Q : 

HE 

XT 


24 

POK 

c 

3— 

V+39 

, 7: PO 

KE V 

+4 

y i 

= POK 

E V+41,7 

: p 

OK 

E 



y+4 


9 : PO 

KE V+ 

4 4 .« y 

: r 

OTO 

980 






25 

FOR 

c 

0=1 

TO 10 

0 









25 

JV : ~ 

PE 

EK<5 

5320 > 

: pR= 

JV 

RN 

D 16 

: JV=15-< 

JV 

AND 

15 

30 

TF 

JV 

=4 T 

HEN P 

0=P0 

-1 

■ IF 

POC 

1 THEN F 

0= 

1 : 

l # # T ^ l 4 
1* \ ***** l 

.;-5 

31 

TF 

.TV 

-8 T 

HEN P 

0=P0 

+1 

: IF 

P0> 

3 THEN F 

0= 

3 : 

i* ‘l 1* 

v+5 


PR I 

NT 

"43"; 

SC ■ RE 

M HO 

ME 

C£ 

SR 






5@ 

IF 

PO 

= i t 

HEN X 

N=0 : 

W= 

54 







53 

IF 

F'O 

=2 THEN X 

H ~ 2 









55 

T r* 

i r 

RO 

=3 T 

HEN X 

N=4 









60 

V 2 r - 

! 3-*", 
T ui 

+SP : 

33=V3 

+3P 









65 

T p* 


?50 

THEN 

^7 2 

50 








Pi 5 

IF 

.;•** 

20 T 

HEN X 

=20 
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IF 


>250 

THEN 

HIT 

=H 

IT+ 

1 : V2 

= 0 





71 

IF 

1 

r 

>250 

THEN 

HIT 

=HIT+ 

1 = V3 

=0 





74 

IF 

HI 

T>2 

THEN 

750 









88 

IF 

PE 

EK (V 

+38 > 

AND 

4< 

>4 

THEN 

90 





i***» “i 
»^i 

IF 

X2 

OI+ 1 

3 FIND 

i : \ cL 

X- 

10 

AND 

V2CV+10 

AND 




V2I' 

>v- 

•10 THEN 700 










IF 

1, .J 

TX'-“ 1 

8 AND 


y 

10 

AND 

V3<V+10 

AK 

n 




V3: 

>v- 

-10 THEN 7 

’00 









~,cr 
O • J 

IF 

TV 

f >y J 

HEN L 

V=LV 

+ 1 

: T ! t 

‘=0 : G 

OSUB 4800 




98 

POK 

:;E 

V , 0 • 

POKE 

V+l, 

0: 

POK 

:e v+ 

3,255:pc 

iKE 


+5. 

, 0 
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100 

POKE 

V+ (XN), X : POKE V+6, SX •' 

P 

OKE 

V+8,X2 : 

POKE 


y+10. 

*• . f o 






110 

POKE 

V-KXN+l >, V : POKE V+7, S 

V 

:P0KE V+9,V 

O ; | 

POKE 


V+ll 

, V3 






115 

IF 81 

H=100 THEN 300 






118 

IF FRO16 THEN FD=P0:SH=18 

10 

* \J »**‘i 

:=x •• sv=v : 

POKE 


V+21 

, PEEKC V+21'; 1 OR 8 : 003UB 

3000 



120 

NEXT 

■ GOTO 25 






130 

nflTR 

0,56.0,0,126.0,3.255, 


48, 

7,199,252, 

4, 


138,; 

252,97,138,254,27,195, 


C- 




132 

DATA 

31,231,252,63,255,243 

.. 63. 

255,240, 

62 

, 225 


, 192. 

, 22 ,225,252<56,243,252 






135 

URTfl 

56,242,60,62,254,60,1 

■y 

7,252,124,1 

27 

, 248 


,224, 

1 S 1 CjO y ocrcr < o 

1 -J X 27 cl. I .« C..J.J .* 1 dO 






149 

DATA 

0 ,’255, 0,0,0,0 






150 

DATA 

0,0,0,0,0,0,14,0,0,9 , 

i 

28, 

0,10,192 

:,0 

,5, 


224,i 

0,5,144,0 






155 

DATA 

3,15,255,1,4,3,0,130, 

l: 

3/0 

, 193,16, 

0, 

160, 


224,! 

0,137,32 






160 

DATA 

0,142,32,0,153,144,0, 

1' 

42, 

112,0,15 

!2, 

240, 


0,17< 

5 ,240,0,160,0,0,192,0 






165 

DATA 

0,224,0 






200 

DflTfl 

0,24,0,0.36,0,0.90■0. 

0 

, 90 

,0,0,90. 

0, 

0,90 


, 0 , 0 , 

900.. 0.. 66 , 0 , 0, 66 , 0 
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DATA 

0 .« 66 , 0, 0.» 66 , 0 , 0 , 195 .* 0, 

1,6 

;e, 128 , 2 , 

98 

i64 .• 


4,90 

,32,8,90,16,16,153,8 
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DflTfl 

32,189,4,79,189,242,8 

0 

, 12 

6,10,96, 

60 

6 

230 

DflTfl 

0,0,0,0,0,28,0,0,100, 

0 

, 0, 

212,0,0, 

23 

2,31 


,255, 

, 120,24,4,48 
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22,3,32,3,16,64,1,160, 
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28 
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128,1,34,128 
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DflTfl 

3,72,128,3,136,128,7, 

1! 

56, 

128,7,196, 

128, 


0,2, 

128,0,2,128,0,1,128,0, 

cL 
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X c.O 



250 

DflTfl 

0,0,0,0,0,0,0,0,0,0,0 

I 

0,0 

,0,0,0,0 
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,0,0 


,0,0 
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DflTfl 
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0 
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0, 
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DRTR 

*•••1 

:! j5 .* 

;z !.X ,: i 

1 1 cr 1 

55, 1.28,1 

3 1,25 

2.0.6 

2, 12 

4,. 0 


!“jh .• hi,";: 

;!, 0 , 

• 48.« 

- 3 i . 

* 128 






.*♦*, *np 

«"!. r' 1 

nRTR 

c *£, , 

15 < 

•« 0 

> . Pi , ‘"I , 

1 pi 3 . Pi, 1 

, i 92 




300 

i. r i 

i=i 

7 up 

:h f 


20 : 8V“-S' 

r-20 : 

GOTO 

320 


X KJ •' j 

r tr r.:: r 

S:-p 

THF 

:n f 

:• t -( .! 

20 •' GOTO 

320 




310 

T p p y 

j-0 

THE 

:h s 

5X~SX + 

20 : SV~S‘ 

K-20 : 

GOTO 

320 


320 

ip pr 

:ek • 

• 114 /: 

l.y'l '! 

RHD 4 

=4 THEN 

520 




\t * M i 

IF SV 

'<40 

lOPF 


> f: p< p C; 

XT25THE!' 

-iSH=0 

: POKE 

v +21 

.. 


F-’tLK 

‘ J 

21 >RHD 1 

255.3 

>•SV=0•: 

SX=0 




-7; ~ cr 

O \!< 

rp p‘ : , 

nnm 

1 ~ f 

59 f 

‘■i 

iND 

f:d=3 

THEN SX" 


GOTO 

322 


.j . "j 
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I 1- XaJ 


10F 

>HDS 

Vv-T- 

10RNDSV' 

•V2--1 

0RNDS 

V3V2 

+ 


10RNE 

iSH= 

=;! 0 P 

Ki-it 

:H550 
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I FS X0: 

<P X - 

•• 1 OF 

iND':: 

XvCX3+ 

10 rnds v; 

>V3~-1 

0 finds 

VCt'3 

+ 10 


RNDSF 

i::~ 1 c 

; 4. 

ig-fp 

itr-F 

>70 






530 

GOTO 


:> 








550 

POKEV 

’ + £ > 

f*3 \ j 

POO 

, 7 ::. v + r .» 

SV : POKE'. 

+ 4-2 1.. 

PEEK < 

V+21 

> OR 


64: PC 

)!<E\ 

>+lr. 

*> O *• 
L .* *J K 

: poke 

V+13..SV 





r.T r~ irr 

...» j .j 

POKE 


, 0 : 

PO!:- 

;p v+9 

, 0 





cjp*? 

A -- •**> h; 

;04ij~ 

!ND < 

1 ;• 4 

•50 : ' T ! 2 : 

=0 : OOSUI 

33100 

: FORT 

= 1T 0 

500 


NEXT 

■ sc 

=sc 

+ 20 

: SH=0 

: sv =0 





565 

onpr 


. i. .* !"■ 

EEK 

< v +21 ' 

> AND (251; 

v-72'> 

: TV=T ! 

V+l : 



GOTO 

1 00 

1 
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POKEV 

••i-6.. 

»*“•• 

PGK 

EV+7 / 

5V : POKE'v 

.' ••!•• 21 , f 

-'EEKC 

v'+21 

> OR 


64 : PC 

KE’v 

ij.. 1 

oy 

: POKE 1 

1 2 .. S; V 





er~?cr 

• J i .J 

POKE 

V+l 

0 , 0 

• {Dfj 

KE v+: 

1 1 , 0 





530 

73=28 

0#f? 

NIK 

i > + 

50' V3- 

=0 : GOSUE 

>3100 

: FORT- 

= 1 TO' 

500 


: NEXT 

: SC 

=3C 

+20 

: SH=8 : 

SV=0 





525 

POKE 

V+2 

1 , P 

EEK 

(v +21 : 

) RHD<255 

;-72> 

: TV=T' 

V+l : 



GOTO 

100 









700 

POKE 

V+2 

1 , P 

EEK 

( v+2 1 : 

•- OR 64: 

POKE 

V+l 2. 

. X : Pi 

3KE 


V+13 ..' 

V • G 

osu 

B 3 

100 
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FOR !■ 

= 1 

TO : 

20 : 

IF T/2= I NT(TX 

2) T! 

-IEN POKE 



V+45 . 

1 •• G 

OTO 

"7 •***» 

r 1 ^.. 

0 
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-■? -i cr 

PHk'F V 

4 -45, Fi 


FOR 0 

1 TO 50:NEXT : NEXT 

758 

POKE V 

+21 8 •' POKE 53289.' 13 : POKE 


PR T NT :| 

nsj" 

751 

RFM 0! 

p C;f;p?-..S PP ‘p 

755 

PRINT" 

SKM^bu' FAILED M ! ! u : REM 

“7 nr 

PRINT" 

Ki^LEVEL .."; LV ■ REM 0 

760 

pp y i it !i 

mmmB u t v o u s c o r e b ! ? ; s c 

765 

008IJB 

41.0 0 : P RIN T' 1 MiiiMiMSlSIi 0 V 0 U 


GO??????"• REM BLUE 
77G GET fl$ : IF fl$0 ,i V" THEN 780 
775 RESTORE•RUN 
780 IF A $ < > 11 H 15 T H E N 7 7 0 
GOG END 




BOHN CRSR 
RE EH 

:REM BROWN 
Wfi'r-F RHOTHER 


OOP 

P7 P : p 

OR L-0 TO 

24 : POKE 8 , L: NEXT 

905 

POKE 8+5, 

9 : POKE 9+6 

, 0 :POKE 8+24,15:HF=25 : 


LF= 177 



1000 

GOSUB 32 

t-. r*. r » » t * rrit»rni 

00 


1 yy 5 

I K l fi 1 


1 007 

REM CLEfi 

R SCREEN B 

I....UE 

1010 

PRINT" 


1 jig ggg $ jig 

i. 020 

PRINT" 


:p; •#: •$:*. ‘yy 

1030 

PRINT" 



1040 

PRINT” 


]#. gjj-g: ;$| jtf: :#ggg‘ 

1 050 

PRINT" 


-: 3 : !#:*. 

1 060 

PRINT" 


■/yy. I#: {$. £:•: 

1070 

PRINT" 


i;!;.': +:•: X;j: 

1 000 

PR ! NT 



1085 

PRINT" 


xxrx i-igligoRv:: xv :g: -gijijg 

1090 

PRINT" 


-jv: !+•; MR |g>: M:|: 

1095 

PRINT" 


•Sgg: gi; :g: -g: 

2088 

PRINT” 


i :0 if ;0 :0 !§ 1M 

20 1 0 

PP T KIT 15 

i'.’-i-x-: yy.' i'y 

:;S ©'g©:©;: 

2015 

PRINT" 


f f f | 1 f ;$$ 

2026 

PR T NT 11 


S?: |:|f: •© i© ;© 

2025 

pp J |J J n 



2@3P 

Rp t NT" 

gi’l+xggx 

Si'- :© I©:©:©:© :© j© 

p •} j~; f.-\ 

Pfip T ; -n 1 

TO 50 : IF 

T/2~ INT ( T/2 > THEN POKE 


5:3281,1 : 

POKE 5328.0 

,10-GOTO 2120 

2110 

POKE 5:32 

81,10-POKE 

53280, 1 

V 1 PP 

POKE S-T-l 

,HP : POKE 8 

,IF:POKE S+4,33 : FOR M=1 


TO 50 : HE 

XT •• HF=HF+1 

:LF=LF+1 
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3 02 Li 

31 fifi 


3200 

2205 


4000 

4004 

4805 

4 f 4 1 0 

4815 


4838 


,10,10 


POKE S+4,32■HEXT 

POKE 53280., 0: 11.1=30 

PR INT" LEVEL? <1 -9 > 

REM CLP SCRN DOWN CRSR 

GET 07 IF fi$="" THEN 2300 

SP= < VOL ( F \$)) X2 : HI T=0 : POKE 53280,0: L V=SP*2 

PR I NT" 2!" : POKE 53281,9: FOR T={ TO 25 : POKE 

1024+1NT(1000#END(1> >,46 : NEXT 

POKE V+21,55:GOTO 25 

Iu-1U+1:IF<IU/35> = INT<IU/35> THEN POKE S+4, 
20 : GOSUB 3210 
GOTO 221O 

FOR L”0 TO 24:POKE S+t., 0:HEXT 

POKE 3+1,1O :POKE 3+5,14 :POKE S+15,18:POKE 
3+24,15:POKE s+4.129 

p|TT| 

FOR 2=0 TO 24 : POKE S+L, 0 '• NEXT 

POKE S+1,5 'POKE 3+5,140:POKE S+15,2 : POKE 

3+24,15:POKE s+4,129 

RETURN 

S=54272 : FOR L=9 TO 24 •• POKE S+L, 0 : NEXT 
POKE S+1., 130 : POKE 3+5,9 : POKE S+15,38 ; POKE 
8+24,15:RETURN 

POKE S+4,21:FOR P=1 TO 100:NEXT:RETURN 
P0KF 52?81,1 

PRINT"fM«ili!!M!!BO**lilLEVEL "LV : 

SP=SP+0«5 

REM CLP SCRN DOWN CRSR BLUE RIGHT CRSR 
3=54272 : FOR L=0 TO 24:POKE S+L,0 : NEXT 
POKES+5,9:POKES+6,O:POKES+24,15:LF=10O:HF= 

150 : FORT= 1 TO 100 : LF-4....F.1 : HF=HF-1 

POKE 3+1,HF:POKE 3,LF : POKE S+4,33 : FOR 0=1 

TO 10:NEXT:POKE S+4,32:HEXT 

PRINT"!]" : POKE 53281,0 : FOR T=1 TO 25 : POKE 

1024+INT<1000#RND<1>>,46 : NEXT 

X2=200#RNIK 1>+50:V2=l0:X3=2O0#RHD(1>+50: 

V3=0:POKE 53280,8 

PRINT"!!" : RETURN : REM LT BLUE 
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41 

fir*! 

_cr; 

4 
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Ff?P 

L= 
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POK 

F_S 

+L 

, 0 : MF'XT 


41 

05 
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r 7 C 
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Q : P 

OKE 

l/ 4 

, Fl: 

PO 
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+24 
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5: POKES 

+4,33 

41 

20 

ii F 

20 

'01 ; 

L 

p ::T Z' 

50 • 

POK 

E3+ 

■4, 

O O ' 

FOR 

y h-. 

1TO50: HF=HF-1 



•LF 

i 

~ : L 

F- 

j 

J. 
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/PC; 

+ j.,! 

“IF: 
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<ES 
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41 
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J 

PfiK 

rr 


j 

■'+ 


FO 

R I 

= 1 

TO 

1 0 

: he: 

XT 

:pOKE S 

+4,32 



: he; 

KT 













4 1 

OjyJ 

HF~ 

36 

! ’ 1 

.F 

:rr 4 !*"*! 

: PO 

i!<F 

S+4 

, p 

p ; p 

ORT 

= 1 

TO 10 : HF 

=HF+1 



: LF 

=L 

F+ 

1 

: PO 

KE 

x +1 

, HF 

: p! 

OKE 

3,1 

,...F 



41 

, »— 

. '.'j 

POK 

E 

3+ 

.? 

M 


: Cf; 

R I 

■-I 

TO 

10 

: he: 

XT 

: POKE S 

+4,32 



: HE 

XT 













A. 1 

••T J. 

40 

HF= 

30 

• ! 

• 

|T 

4 0 

: PO 

KE 

«“• _j. } .-j 


3 •' F 

ORT : 

=r 

TOIP•HF 

-HF-1 



•LF 

s=L 

nr ..... 

j. 

: PQ 

KE 

3+1 

. HF 

:p! 

OKE 

C ! 

r- 

.... n 



41 

4 rr 
’T ■ J 

POK 

E 

C; 4 . 

4 

*Tt 

FOR I 

-1 

TO 

10 

: he: 

XT 

:ROKE S 

+4,32 



•HE 

XT 













41 

59 

UPr: 

■T; «7; 

1 : L 

C 

:::4C\ 

: PO 

KE 

3+4 

•"|j 

2 : rr 

ORT 

"1 

TO20 : HF 

“HF+i 



: [_F 

rn! 

F+ 

1 

j. 

■ PO 

KE 

S+l 

, HF 

:pi 

OKE 

Q , j 

ir 



A A 

tr rr 

POK 

r* 

j:;. 

3+ 

4 

-r* 

: pf| 

R I 

= 1 

Ti“ 

10 

: he: 

XT 

: POKE S 

+4 , 32 


• NEXT 

4280 RETURN 


1 

REM 


FiSTR 

OSMfl 

sh m 

$ 






REM 

jjt& 

KEVB 

OFlRB 

VERS 

IC 

H 




5 

POKE 

rr* 

. j 

231,1 

0 : F‘0 

r--.tr. -j-r 

-**!• C 

0 

, 10:PRINT 

" FI": REM CLR 


SOPH 










•C 

i t C... C- 

00# 

RND < 1 

>+50 

: V2=4 

0* 

:R 

NIK 1 > 

• VO-O 
»■ '| ■„.» 

0O*RHIK1> 


+ 50 : 

V2= 

40#RH 

Ii < 1 > 







10 

V=5 

324 

", : 30= 

0 







1.1 

PO::: 

2 : P 

i — « 

OKE 2 

044, 

196 :R 

OK 

£ 

2045. 

137 


12 

POK 

E20 

4y, 13 

2: PO 

KE284 

1, 

1 

33: POI 

• E284 

2,134 ; X~155 


: V“ 

1R 5 

: POKE 

2! 0 4 3 

, 135 : 

PO 

Kl 

E2046, 

133 


13 

FOR 

S= 

12544 

TO 

12606 

■•R 

E! 

RB Q ■POKE 

S,Q:NEXT 

14 

RES 

TOR! 

E: FOR 

— -j 

2608 

TO 
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READ 

0:POKE S,0 


: HE 

XT 
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1 r ~ 

FOR S"12 


TO 

4 

235 

0 : 

READ 

Q 

POP 

:e 

SQ : HEX 1 

4 ~*t 

FOR '3=12 

352 

TO 

i 

241 

4: 

READ 

Q 

POI 

:e 

S', Q '■ NEXT 

‘~C-\ 

FOR 8=1 2 

416 

TO 

1 

0,1? 
u... : : 

1* J 4 

READ 

Q 

POI 

•r* 

S,Q : NEXT 

21 

FOR 3=12 
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TO 

1 
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O ; 

RFAD 

Q 

POI 

. 1 — 

8,Q:NEXT 

*7 5 

FOR 3=12 

|-“x .* 

TO 

1 
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•.:2 « -2* 

4 : 

READ 

Q 
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•p 

S,Q ; NEXT 
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POKE V+I 

9.7 : 
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r.r 

v+ 

40 
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OKE V-t 
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c* ■ 

Qf 

OTO 

9 
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FOR 

30= 

1 TO 1 

@0 
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jy=r 

p tr c j.T 
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IF 

7* u.. 

00 THEN FR= 

10:GOTO 


Q 
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30! 

IF 

jy=l 

2 THEN 

P« 

0--PC 

-1 ■ IF 

FOCI 

THEN P0-: 


31 

IF 

T» ; j- r .4 

9 Tj-iPK, 

P) 

3=PC 

+ 1 : IF 

P0>3 

THEN P0= 

- P 

-7, 

PR I 

NT "S3 

I"; SC • R 

'EM 
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50 

IF 
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XN 
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cr 

IF 
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THEN 

XN 
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55 

IF 
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THEN 

XN 

~4 





40 
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V2+S 
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?P 






65 IF X> 250 THEN X=250 
GG IF XC20 THEN K=28 

70 IF V2>250 THEN HIT=HIT+1•'V2=0 

71 IF V3T250 THEN HIT=HIT+1 : V3=0 
74 IF HIT>2 THEN 750 


SO 

IF PEE 

=;K ( 1 
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NB 
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THEN 
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-10 
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AND 
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10 
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IF X3 
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AND 
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IF TV! 

C} 
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PO 
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POKE 


< XH+1>, 

V: 

PO! 

<E '■ 
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sv=v 
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, 60,9 

... 0 ... 

0, c 

i 

0, £ 

, 0 , 


!, 0, 

0, 

0, 

0,7 

0 j 

0 

, 0, 0 , 


0 , 0 

.0 

, 0,0 , 

0,0,0 , 

P 

, 0, 

0 , f: 

), 

0 ,2 

) 






2b 0 

DATA 

0 

, 16,0 

... 0 , 

56, 

p 

, 0 , 

56. 

1 

A , !“ 

i,5 

6 .* 

30, 

0, 1 

W* f 

4,60, 


128,128,120,255,255,248 


265 BATA 255,255,248,127,255, 248,63, 255,248,31, 
255,224,15,255,224 


270 

BA 

Th 7,: 

255 , 2 


nr 

.j 

6 , 62 , i 

3,48, 

777 

Tt sTj 

•LM i 

TA 96 

15.1 

300 

IF 

FB~ 1 

THEN 

305 

IF 

FB=2 

THEN 

310 

IF 

FB=3 

THEN 

320 

IF 

PEEK 

CV+30 


0 

SV=SV~20 : 

GOTO 9 

20 

0 

: GOTO 320 



0 

: 3V-SV-20: 

GOTO 3 

20 

4 

THEM 500 




25THEMSH-G 

i : POKEV 

+2 


PEEK V+21) AND < 255-8 ) •’ SV=8 = SX=8 
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IF 8X>238 AND FB=3 THEN 3X~270 : ROTO 332 
GOTO 120 

I F$X>X2~ 10ANDSX<X2+10flHBSY>V2-10ANDSVCV2+ 

10ANBSH= 100THEN550 

I FSX>X3.18AHBSX<:X8+10 ANBS V> V3--1 0ANBSYCV3+ 

10RNBSH»100THEN570 
GOTO 322 

POKEV+6, SX : POKEV+7, SV • POKEV+21, PEEK < V+2 DOR 
64: POKEV+12 3H; PQKEV+ i 3, SV 
P 0 !< E V + 8 ,0 : P O K E V •+■ 3,0 

V2=200^8NIK 1)+50:V2=0 : GOSUB3100 : FORT"1TO500 
:NEXT:SC“SC+28 : SH~0'SV=0 

P0j<E V •!•• 21, PEEK < V+ 21) RNB<255-72 : TV*TV +1 : G0TC 
108 

POKEV+6, SX : POKEV+7.. SV: POKEV+21, PEEK<V+21 )0R 
64 : POKEV+12, SX : POKE'/+13, SV 
POKE V'+10,0 : POKE V+11 .0 

X3=200#RHB<! 1 > +50 : V3”0 : GOSUB3100 : FORT=1TO500 

:NEXT:SC"SC+20:SH”0:SV“0 

POKE V+21,PEEK < V+21>RHB<255-72> : TV-TV+1‘ 

GOTO 100 

POKE V+2i,PEEK < V+21> OR 64:POKE V+12,X:POKE 
V+13.V : GOSUB 3180 

FOR T• ~ 1 TO 20 : IF T/2“IHT<T/2> THEN POKE 
','■+45, |: GOTO 720 


nm/ir u.!...••!c- 


FOR 0=1 TO 50 : NEXT : NEXT 

POKE V+2 1,0:POKE 5328©,13 : POKE 53281,13: 

PRIHT'TJSI" 

REV CLP SCRN RED 

PR I NT" ^MSTVOU FRILEB! 1 ! i ” ■ REM BONN CRSR 

PR I NT" KSML.EVEL "; L.V : REM GREEN 

PR I NT" 1SDSWKMREUT VOU SCORED"; SC ■ REM BROWN 
GOSUB 4108 ■ PR I NT" W»M»M^iO VOU WANT ANOTHER 

00??????" : REM BLUE 

OPT At: IF AtO"V" THEN 780 

RESTORE : RUN 


If AtO"N" THE 
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90@ 3=54272 : FOR L. --0 TO 24:POKE S,L. U-iEXT 
3o3 PUKE s+j.) 9 ’ PURE 3+6, o ■ P’UKE 15 " HP™ 9 5 ■ 

LF=177 

1000 OOSUB 3208 

1085 PR I NT "”1S 'M !■ mwm'm ill 

1007 REM CLEAR SCREEN BLUE 
1010 PRINT" 

1029 PRINT" 

1030 PRINT" 

1040 PRINT" 

1050 PRINT" 

1000 pptj-jT" 

1070 PRINT" 

1930 PRINT 
1085 PRINT" 

1090 PRINT" 

1095 PRINT" 

2000 PRINT" 

2010 PRINT" 

2815 PRINT" 

2020 PRINT" 

2025 PRINT" 

2030 PRINT" 

2100 FOR T:::: 

502S1■1:pnKF 53280.10:GOTO 2120 
2110 POKE 53281,10:POKE 53288,1 
2120 POKE 8+1,HF : POKE S,LF:POKE 3+4,33:FOR M*1 



TO 

50 

: HE 

XT : 

HF= 

HF+1:LF 

=LF+1 



2125 

POL 

E 

8+4 


: HE 

XT 




“• -1 Of-? 

POK 

E 

cr p p 

80, 

8 : I 

!J=30 




O O fi ?**•! 

PR I HI 

' 1 nf'MPMi , !Mc©WMl H P T 

LEVEL? f. 1 

--9) 


2205 

PEL 

c 

LP 

SCF 

N D 

ONN rpp 

R 



2210 

GET 

R 

i V I 

ir p 

$=" 

" THEN 

2800 



2215 

SR=r 


fill 

H$ y 

> X2 

:HTT-0: 

POKE 5828 

!0,0 : L.V 

,''=SP*2 

; :.l .:L .1 \ 

PP T 

\,\T 

n 

: PO 

me” 

53281,9 

: FOP T=i 

TO 25 

: POKE 


1024+1NT<1080*RHP i 1>>,46:NEXT 
2220 POKE V+21,55 : GOTO 25 

2300 IU--1U+1: IF d UK35 > = I NT < IIJ/35 > THEN POKE 8+ 
20 : OOSUB 3210 
2 310 G 0 T0 2218 
3000 3=54272 

3905 FOR !....=O TO 24 : POKE S+L,0:NEXT 
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•“•p iPOKE 3 + 1,10 ; POKE 3 + 5,14 'POKE 3+ 15,1P : 

POKE 3+24,15:POKE S+4,123 
3020 RETURN 
p i 0 Ei 3 =E 4 2 7 2 

pi 05 FOR L=0 TO 24 : POKE 3+', 8 :NEXT 
3110 POKE 3 + 1,5 'POKE 3+5,140'POKE 3+15,2 : 

POKE p+24,15: POKE 3+4 1.29 
3120 RETURN 

3200 3=54272: FOR L =8 TO 24:POKE 3+1,0: NEXT 
2205 POKE 3+1, 130 : POKE 3 + 5,9 • pq!<E 3+15,38 : POKE 
3+24,1 5 :RETURN 

3210 POKE 3+4,21 : FOP p~l TO 180:NEXT : RETURN 
4000 POKE 53281,1 

4004 PRT NT 11 M^MSlt^ISlBOftifciil.EVEL " ; L.V: SP=SP 

+ 0 , 5 

4005 REM CLR SOPH BONN PPPp BLUE RIGHT GR8R 
4010 3=54252:FOR l =0 TO 24 : POKE S+L,0 : NEXT 
4015 POKES+5,9 ' POKES+ 6 , O : PQEE3+24,1 5 ;!... F=1 @0: 

HE -1 50 : FORT-" 1 TO 100 : LF=LF-1 : HF~HF-1 
4G20 POKE 9 + 1 , HE : POKE S • L.F : POKE 9+4,33 : FOR n -1 
TO 1 0 :NEXT:POKE 3+4,32 : NEXT 
402O PRINT""!" ' POKE 53281,8 'FOR T -1 TO 35 ' POKE 
1024+1 NT < 1 00@#RNIi < 1 > >, 46 : NEXT 
4040 X2=200*RHD< 1) 4*50 : V2 : = 10 • X3^200#RND (1) 4-50 : 
y^l: pf|KE 52222 ; }/' 


•1 

350 

pp TNT ,, n i! 

RETURN 

: REM 

T EU 

JE 





i 

1 00 

3=54272 : FOR 

L.=0 

TO 2 

4 - POK' 

z S4-L 

, 0 : HE 

:-:'T 


•* 

1 jZg 

POKES- 1 ?-5, • 

■ pr 

IKES 

-j- 2,22 

r« m/rQ 

•h-24 


J • POK 

ES+4,33 

4 


HF-200 : Lf 

2:r:2 ! T 

p « p 

0 KES + : 

X , 22 : FTlPT- 

1 TO50 

: HF=HF-1 



: LP^LP -1 : 

ROK 

ES+ 

1, HE : F 

-OKES . 

LF 





A 

1 25 

POKE 3+4 

•■“i ‘‘p 

FOR 

1=1 

T 0 10 

: HE 

'AT 

: POKE 

c* 

+4,32 



: NEXT 










4 

1 30 

HF«30 '• LF~ 

■40 : 

ROK 

E S+4 

, 32 : F 

2PT- 

= 1 T 0 1 0 : 

HE 

=HF+1 



: LF=LF+1 : 

POK 

E S* 

+ 1, HE: 

POKE 

C 1 

.> i. 

.F 




*4 

1 25 

POKE S+4 

■Ri 

FOR 

1=1 

TO 10 

: NE 

AT 

: POKE 

O 

4-4,22 



: NEXT 










4 

140 

HE=30: LF- 

'40 - 

POK 

E S+4 

, 33: F 

OPT 

— -j 

T 0 1 0 : 

HF 

=HF-1 



: LF=LF--1 

: POK 

:e s 

+ 1 , HF 

: POKE 

S,LF 




4145 

POKE S+4. 

0*3!' * 

FOR 

1 = 1 

TO 10 

: NE 

•;T 

: POKE 


+4,32 



: NEXT 
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| ip -30 : l.F~ 40 : POKE 5+4,33 * FORT-1 TO20 • HF==HF+1 
i .F~LF+1 :POKE 8+1,HF•POKE S,LF 
pqKE 5+4 33 ' FOR I~ 1 TO 10 : NEXT : POKE 3+4 , 32 
: NEXT 

pryj j d kj 
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ADVENTURE AND SIMULATION 


Survival 
Roman Empire 
Battle of Britain 
Sunnybrook Farm 
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SURVIVAL 


This program written by Doug Rolfe is an adventure program 
with a difference. 

You are a passenger on an interstellar flight. The ship has been 
attacked and ransacked by space pirates. The crew has been 
killed and the few passengers the ship was carrying have been 
kidnapped. You are the only person left on board the ship. To 
survive you must get to the control room, get the ship underway 
and then get off the ship to safety. Please be very careful, a 
derelict spaceship holds many dangers for the unwary. 

Commands should be entered as two words. Firstly a verb, such 
as GET or GO, this should be followed by a noun or a direction 
such as BOOTS or NOSEWARD. You have four choices of 
directions. Noseward and Tailward, which are self explanatory, 
Spinward and Antispinward. These last two refer to the direction 
in which the ship is rotating to produce an artifical gravity. 

The screen will display all the information that you need to know 
as the game proceeds. You will be told what you can see in each 
of the four directions, and under this you will be informed if there 
are any objects near you. You will then be asked for your 
command. 

We don’t want to make the game too easy for you so we won’t give 
you much more information but there are two more things that 
you need to know. 

Please note that locked doors and locked lockers have to be 
UNLOCKED. Closed doors need to be OPENED. The OPEN and 
UNLOCK routines are separate and if you try to OPEN a locked 
door you may be told there isn’t a door there. The program will 
look for a closed door and not a locked door, if it doesn’t find one it 
will tell you that you have made a mistake. Of course you can only 
unlock a locked door or locker if you have the right key! 

Finally, be very careful what you pick up, once you have some¬ 
thing it is yours forever. You can’t put it down again! Good luck. 


91 



i S 

F |Vj flj); fjjlf 


-ElIff " 

•’9 K2 

d gi<:e 53 

*“!« p 

,!! ± ( 0 ) -r: 

“THE HU 

.:1 

1IL t •; 


HIT (6 > 

50 

• II J- -* ' . ... 

i-M L . P \ :• / 


11 fi LCC 


NL$< 9>- ::: 


: Tipt ( 2 > 

**?!“ 

i 

Tip t < 3 > ::: 

Of; 

T«TM n<{r/ 

q o t 

PPTNT ?! 

95 

pen blf 

10P 

H= 14 • r 

lie 

cpp 

1 2C 

*! •’”» (5 

FOR I::;-: 
z:n p v ” -: 


: NEXT 

■t ‘“rr 

: GC3UB 

•; .•* (5 

« pnp vv 


• next” 

1 50 

FOR XX 

168 

PR I NT 

•? cr 

REM CL 

170 

PRINT 

i 80 

GOSUB 

198 

PR I NT 

ppp 

PRINT 


.M. :~) p j‘“} 


"I":REM BLUE BLOCK 
285 GO SUB 4800 
218 PRINT "Mb]’"' ; 

215 REM 2 CR3R BONN 
228 FT=LEFTTCR$,3> 

238 IF FT="INV" THEN FOR XX=8 TO NP : PRINT POT 
(NX) NEXT XX: GOTO 198 

235 IF LEN<FIT)<4 THEN PRINT "I BONT UNDERSTAND" 
:GOTO 190 

248 FOR P=1 TO L EN < PT : PT~M T TiT < RT. P, I'- 1: T F 
FT*" " THEN GOTO 258 .." 
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NEN T p : PRINT "SPLERSE ENTER R T'.'JO !•■ 
SENTENCE" : GOTO 130 


M- •' 




•0 FOR XN=1 TO N: IF V$NX'>~F$ THEN F~t •'/=•••’< 
r 0 NEXT XX 

IF F~0 THEN ITINT "NO RECOGNISRELE VERB"-' 
GOTO 190 

•! 0! T::::: !*"’ 

n-j for hs-i to ho : if m<yy>y~st then f=i ;ho=xx 

!*“: j. {r.r v t vy 



20 

IF ! 

- "T L 

| 

HE!- 

1 P h 

MIT 

" * r . 

O RE 

COGHISF 

ELE !• 

•10 UN" 



GOT 

1 1 

00 









E 

4 0 

ON ’ 


07 

0 ’• 

70 • 

“i r N 

1 1 

60 , 7 

00,970■ 

1370. 

1378 



179 

3 











50 

OH 

■■ ! .! . 

0 ! *) 

GC 

TO 

1 79 G 

’! 

790 

17001, 17 

20 , If 

!30, 1 


7 0 

r;«r> *r 

•IT 

! f 

ou 

CRh- 

••• T X 

0 

THAT 

“ : GOTO 

190 



T 

r t i 

,*! t 


m 

» ,! ! 

»> ; Nr 

.} 

1 

\ ..... M •} 

" JNPN 

GOTO 

410 

•’0 

! ! v !"!•! 

V ?‘T }• 

.•i T T; 

«•" 

im: 

! 

T 

1 ) , N 0 

•5 

..... 11 frj 

" THEN 

GOTO 

410 

3 

y 14 

IF r 

.1 ‘I 4 *f, 

N !. jj 

$ ■ 

1st ( 

! 

■> , NO 

, 1 

> :::: n 9 

" THEN 

GOTO 

410 

4 

p 0! 

GO SI 

m 

•*"r •“): 

0G : 

p p * 

NT " 

UmiiilUTHUMP 1 

III": 

GOTO 



1 70 











4 

t;J !”j 

!*•** *yi 

R J 

OH 

T C 

PQp 







4 

•J !’“} 

i j j- j ;• 

!|j 

l*“i 

70 

430 

, 440 

, 4 

001 ; 4 

50 



4 

P !/! 

DD T !• 

1 : . . 1 . i 

IT 

nt; 

HRT 

■00 

CPI- ! 

“r 

■,10!]/ p 

T i. ; p ! 1 

: pnrn 

i 190 


.-j t"U 

•1-4G 

45*0 

460 

f‘ N 


M--'- } I * 00TH 1 70 

’V.71. * GQTQ 170 

H^H-f 1 : GOTO 170 

1 • Li i l_j 1 / L! 

IF NOTHING" THEN PRINT “THERE IS 
NOTHING HERE" : GOTO 170 


4 80 F 0 R Pj 7 0 ]. E N < !< $ > : P P $ M T T\ ■$ •' S $ , P , 3 > : T F P P $ 
0 " THEN GOTO 490 

405 f^XT p- PRINT "I CRNN'T SEE RNV SUCH OBJECT" 

:GOTO 170 

IF HP -~7 THEN PRINT "VOU CAN'T carry RNV 
MORE" : GOTO 130 

IF KT- ; '”Bu"JV" THE--! PRINT "THE BODY IS TOO 
HEAVY TO CARRY":GOTO 170 
IF !<$-"COMPUTER" THEN PRINT "you CAN'T, 

ITS FIXED TO THE WALL.": GOTO 170 


490 
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529 IF K $="AUTOPILOT INSTRUCTION TflF'E" THFN FT=1 

530 IF K$="SPACE SUIT" THEN FS=1 
548 IF K$="BOOR KEV" THEN DK=1 

550 IF K$="LASER CUTTER" OR K$="POWER PACK" 

THEM LF-LF+1 

550 IF K$="BACK PfiCK" THEN FS'I5> = 1 

570 IF K$="LOCKER KEV" THEN L!<~1 

580 IF K$“"SONIC SCREWDRIVER" THEN Tl = l 

508 IF K$="LOGIC PROBE" THFN T2=1 

EGO IF !<$=”PLIERS" THEM T3='l 

510 IF K$="WARHEAD" THEM M1~1•FX=1 

S20 IF K$="DETONATOR" THEN 142=1 : EX=1 

630 IF K$="NUCLEAR CHARGE" THEN WP=1:EX=1 

640 IF K$="HELMET" THEM FSm = l 

650 IF K$="SPACE SUIT" THEM FS’:'2> = 1 

560 IF Kt="GLOVES" THEN F:":™i 


S70 

T p I/' -« 

" V 

DOTS" THEM FS(4> 

= 1 

b80 

NP=NF'+ 

1 ■ 

POT ( HP > =K$ : oio-U 

V)“"0" 

690 

PRINT 

HI. 

OU HAVE ";RE$;" 

";K$ : GOTO 170 

700 

IF HOC 

>i 

4 THEM GOTO 788 


710 

PRINT 

" K 

HERE";INPUT RT : A 

f =L.FFT$ < R:f, 3 > 


FOR XX 

= i 

TO 4 • IF LEFT$<D' 

R$<XX> ,3>=R$ THEN 


GOTO 7 

40 



5 . IJ 

NEXT X 

1 , J . 

PP T HT l! T}..|pr fjrIPC; 

N'T MAKE SENSE": 


GOTO 1 

70 

1 



748 IFMI B$<B$< X , V>,MX,1>O"4"THEHPRINT"THERE 
IS NO LOCKED DOOR ";DRf<MX> : GOTO178 
741 REM PUT CURSOR BACK INTO i the BEFORE 
PRESSING RETURN 

750 IF DK-Oi THEM PRINT "VOU DON'T HAVE THE KFV 
" : GOTO 178 . 



IT " DOOR UNLOCKED " : D$ <X ■ V > =LEFT$ (D$ 
1>+"3"+RICHTT( m<X ,V), 4~XX > 



778 NW$="3" : 0N XX GOTO SP8.340 .850,860 
78G IF MOO 15 THEN GOTO 868 
798 PRINT "WHERE"; •' INPUT fi$: R$=' EFT $ < A t, 3 
888 FOR XX =1 TO -i: IF LEFT*-IDET OCX'* .■ 3'>--fi$ THEM 
GOTO 828 

318 NEXT XX • PRINT "THAT TQFSN"'T Mfik'E SENSE" 

:GOTO 170 

328 IF MID$(D$<X,V>,XX,1> O"8" THEN PRINT "NO 
LOCKED LOCKER ";DR$(XX> : GOTO 178 
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IF LKO1 THEN PRINT "VOU DON'T HAVE THE 
KEV!!":GOTO i70 
840 B# (X, V ;• -LEFT# < 37 O ' V . XX 1 > + ”9 " +RIGHT# 

) , «:1 -- *5 

OH yy goto 999 343 . 999 . opo 
PR I HI ,! WHERE ” ' : INPIJT R$ : fi$=LEFTi ( R$, 3 ) 

870 FOR HH-I TO 4: IF LEFT$<riP$«::XX>, 3>==fi$ THEN 
UUl ij yyy 

380 NEXT XX ; PRINT "THAT DOESN'T MAKE SENSE!!": 
i.jljTU 170 

390 IF MID$<III-(X . V>.. X'-', 1 them PRTNT"THERE 

IS NO PIRLOCK ";DR#(XX>:GOTO170 

AMD ES“2 P 1k, T I-'3 THEM PRINT 
HE IT! 1 ":end 

THEN PRINT "VOU EXPLODED IN THE 
!":END 

PRINT "VOU HAD NO WHERE TO GO PHD FLOATED 
TO HOUR DEATH! 1 " : END 
338 157 < X, V+ i.) ~LEFT$ F t (x, V+1 > , 1 > 4-HU#+R IGHT# 

< D# ( XV+1 > , 8 '■> : GOTO 170 
340 157 ' X,- 1 > : ~N!lt■!-R10HT7 <D# ■" X , V-1 >, 3> : GOTO 178 

37 < 1 , v >=left$ < m < x+ 1 , v >, 3 >+nm# : goto 170 

980 D# (X -1, V > -LEFT# < D# < X-1, V), 2 > +NW7+R IGHT# (fi# 
<x-l,V X,i> +HU#:GOTH 170 
978 PRINT "WHERE"::INPUT A#:R#=LEFT#<A#,3> 

980 FOR XX-1 TO 4 : IF Af^LEFT#<DR #f XX’:', 3>THEN 
1 000 

’"''''PRINT "THAT DOESN'T MAKE SENSE!!" 
170 

1 000 IF MID# < D# < X, V >, XX, 1 > O " 3 " THEN PR I NT 
"NO CLOSED DOOR "DR#<XX) : GOTO 170 
1010 PRINT "DOOR OPEN":D# < X,V>=LEFT#<D#(X,V>, 

XX-1) + " 5 " +RI GHT# < D# < X, V > .• 4--XX) 

1028 N!4$- !! 5" : ON XX GOTO 330,940.. 350,9E0 
•j GOTO 1 70 

1840 FOR ~TD"1 TO 1800: NEXT TD ‘ PRINT "El": FOR TiR== i 
TO 4:PRINT 
1045 REM CLP SCRN 

1050 PRINT DR#(DR> " VOU SEE "; WL$(VRL(MID# 

(D#(X,V>,DR,1)> > 


330 

t r~ • ! / 

1 r L.f\' 


KEV! ! 

r\ M- i;'! 

T;tT‘V 1 


(D$'"X 

350 

L. i i. * __ ! * 

•T.i <:T ;***' 

E'D T !• IT 

870 

FOR X 


GOTO 

s “s o r:- ( 

NFXT : 


i, j s j T U 

390 

T p H T' 

7; ’’/• ia 

i o N«J 

v r r« r 


"VOU ! 


VHf:i!! ! 

C) f‘“f 

p p J j.. J T 


TO Vij 

!*j •“: j3*. 

:d$(h , 


< ri$ (y 

940 

Tr ; f' V 

***** »*"** #***1 

33 < yy 


ij -t- V 

(X-l, 1 

979 

ii -i i 

930 

POP 


GOT 0 


: GOTH 

1 000 


1010 

r?U l 
PR 1 Nl 


XX-15- 

1 090 

|!. {.+■ r . ;; !! 

1040 

9'9 T j9 

FOR 1 
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10 7' 8 1F V A L < 0 $ < 7’. V > > > 0 T H E N K $ 0 B £ < V A L. < 0 $ 


) ;> • GOTO i 140 


1 gg 

G T F PG 

'.J ’ 1 |7{ ! ! T 

p ki !<• : ir »«j*,j fi T |J T |*. j f:«» ; Q 



: GOTO 

1140 




:-t : .... r ; 7 ;, 

,*»*. ,7. ». .. 

u •*, *‘1 .TP *■.* 


•« H 2 

w p p T i,i T 

! TMt ; OU see 

; «» ; j<$ ; !! HEREil” 


1 1 4 

1 REM VELLON PRSR 

DO ON L.T BLUE 


1 •; nr; 

g FETUR! 




! 1 

0 IF 0 $ 

/ ^ J .^1 U p ! 1 

THEN PRINT "THERE 

is NO 


COM PR 

!JER HERE 11 : C 

SOTO 170 


•! •! “7 

P p^THT 

!! ‘TnP VP!! \A 

ITSH TO PET p 00! IPS 

F (' V/H " 

1 *! 

ppi -,1 ’ pi 

' ip o r- p !-, ! 



■\ -] 

0 OFT A 


TLirkl GPTn *| j pp 


1 P 

.p pp T !-,;T 

} ripr -i 

"T hrve Ml 

rij | !.j i, y,y ! ; ;1 

i OTHER FUNCTION." 


121 

0 FRIHT 

'•PTsnnNNFr 

TION PROCEEDS":GOT 

O 170 

■] *v~ 

Pi IF FT 

=1 THEN GOT 

'0 1240 



: !-;:j ;;;;*. *r 17 “ 

M T MpfipC; T Pj 

jr NITHOUT" : PRINT " 

AUTO 


PILOT 

COURSE TRF 

: 'E" : GOTO 170 


•: 

P PR* T !■ |T 

; j mj,«. j | r; ( ,*“• |~ 

ET :: PRINT "DO VOU 

WISH TO 

1 P : 

:p pjrpj f;| 

R A CRN 



1 

0 PRINT 

"PROCEED T 

0 BESTIHOTIOH? <V/ 

N > " 

•? --p i; ;r 

0 GET P; 

$: IF fit-" " 

THEN GOTO 1260 


1 27 

P IF RG: 

••• 1 *n s nr. H 0 

OTO 170 


:!. 20 

0 IF AT- 

:*-“*:. !i p M TLlirr!*,! 

GOTO 1260 
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0 PRINT 

n^ypcpppi 

VE IN OPERRTIOHr 
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l~: i:" f "0 ! 

■pm 1 TP PPPPl 

: KiP NT PR: PRINT "1" 

:RF= 1 : 


PRINT 
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STATUS •• " 


i 30 

«::r r** r~ t*-! 

... { IT. i ! L ! 

LR 3CRN DON 
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*| O *j 

P PRINT 

^ORBITING 

4TH PLANET OF":PRI 

NT 


11 STAR 

y CANOPUS 

II 
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G PRINT 

!! pPKjTPV pp 

pFT OF TH13" : PR T HT 

"PLANET 


RE CUE- 

ST DOCKING" 



•1 OO 

iTj r> r.j T '• 1T 

11 -ftrrin vnu i,j 

I3N TO COMPL't 1 ? < V/ 

N >" : 


PRINT 

" < RDVI SflEl... 

E >" 


j. -.j *.::■ 

T REM In; 
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$ : IF fi $" " 

THEN GOTO 1340 


1 PF 

0 IF Af 

: = !! V" THEN r 

F -1 : PRINT "DOCKED* 

PROCEED 


TO All 

RLOCK *2'"' 

GOTO 170 
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1369 PR 

‘HIT ?i W 

■ ! nij HERE 

31-1 

“ t n 

JT OF THE 3KV!! 

: P 

,!T; 





1 TP 

nr •-!..... •-< - 

rups-.i DD T 

HT 

H L.l j-- ( | 

RLREFlBV HRVE fi 

CO 

MPLETE 

SUIT" : C 

OTO 

190 


•i opo TP 

’• j f! 4 

T i-i P «■••! f •? f 1 

TQ 

1 44R 


1.330 IF 

H0~ 1 1 

OP Mfi= 1 

. ■' i 

hen 

GOTO 1490 

1400 I” 

j. | «•"}. “• "7 

then go 

TQ 

1 540 


•j , •! 15 *r*i t f 

j\| n P 

THEN GO 

ID 

1530 


1430 IF 

HQ-37 

Op HO=3 

5 T 

i-IPM 

GOTO 1650 

1430 pp 

TUT M Tj 

.?PT rinFF; 

r,j T 

r*! ?-* jv* 

E SENSE! 1 ":GOTO 

j 4 :;! O T P 

-- --- .•* . 



T j.,|T 

"VOU DON'T HAVE 

HF 

MPT " : 

;i i t T i,j 1 t' \:i 

0 



•{ /j nr. p P p 

T !-r n m j' 

111 RPE N 

low 

HERR 

IHO THE HELMET" 

PO 

r-i •; 

TO HF 




• i..j' 

POT IX’ 

p j..«p ..... -J 

:< •? = " HF! M 

!ET ! * 

j 

THE 

H POT(XX)“POT(N 

1473 HE 

T V ' 

hr ’' J ‘ 




1480 F3 

rPO ;.. •; ; t 

T ]“*? 1 '7 ?/ 

|0 



1.490 IF 

FS(2;" 

r>i the!- 

! RR 

r HT 

"VOU DON'T HAVE 

pp 

ROE SU 

IT u ;GQTC 

) 17 

'00 


•? rrri-i|-j r> D 

T L 17 1! »J j 

—* ? j p p r- ; 

OH 

WERE 

TNG THE SUIT" 

: Fl 

OR xx =; 

1 TO HP 




1510 IF 

POT XV 

X> == : ' , SPRC 

E S 

IJ IT" 

THEN POT(XX > =P 


<HP> :MP=NP~-1:FS<2 >“0 
1538 F3=F3+'i ; GOTO 1.780 

1540 ! r FS(3>01. THEN PRINT "VOU BOHT HRVE 
GLOVES" : GOTO 1700 

1.5'"0 PRINT "VOU RPR HOW HERRING THE GLOVES" : 
FOR XX*1 TO HP 

i. 560 IF POT i XL > = "GLOVES" THEN POT <XX > =POT<HP> 
HP.--NP-1 : F S C 3 ) =Gi 

1.530 F3=F3+1 - GOTO 1700 

1500 if FS64K>1 THEN PRINT "VOU TONT HRVE 
BOOTS"•GOTO 1780 

1500 PRINT "VOU ORE WERRIHG THE BOOTS"'FOR 
W”1 TO HP 

1618 IF POT < XX>="BOOTS" THEN POT(XX>=POTCNP>: 
HP--HP-1 : FS (4) = 1 
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1620 NEXT XX 

1630 F3-F3+1 : GOTO 1700 

1640 PRINT "YOU ARE WEARING THE BOOTS" : FS2=FS2+ 
1 ; GOTO 170 

1650 IF FS < 5>0 1 THEN PRINT "YOU DON'T HAVE A 
BACK PACK!":GOTO 1700 


1660 


1670 


PRINT "YOU ARE NOW WEARING THE BACK PACK" 
: FOR XX=1 TO NP 

IF PO$(XX) = "BACK PACK" THEN PO$<XX>=PO$ 
■(HP) : HP=NP~1 : FS<5)=0 


1680 NEXT XX 
1690 F3-F3+1 

1700 IF F3=5 THEN F2=2: NP=NF'+1: P0$(NP)="FULL 
SPACE SUIT" 

1710 GOTO 178 

1728 IF NOO(16 AND 27) THEN PRINT "YOU CAN'T" 

:GOTO 170 

1738 IF LF02 THEN PRINT "YOU CAN'T":GOTO 170 
1748 F0RXX=1T0NP : IF POT<XX>="LASER CUTTER" THEN 
POT < XX) = "CHARGED CUTTER"=LF=3 
1758 NEXT XX 

1760 FOR XX=1 TO NR:IF POT(XX)-"POWER PACK" 

THEN POT(XX>“POT(NP>:NF-NP-1 
1765 NEXT XX 

1778 PRINT "YOU HAVE A FULLY CHARGED LASER 
CUTTER BE CAREFUL!!" 

1789 GOTO 178 

1790 IF LF =8 THEN PRINT "YOU DON'T HAVE ONE": 
GOTO 170 

1808 IF LF03 THEN PRINT "NOTHING HAPPENED'" 

: GOTO 170 

1810 PRINT "YOU HAVE BURNED A HOLE RIGHT 
THROUGH THEHULL " 

1820 PRINT "MYOU HAVE DIED IN THE VACUUM":END 
1830 IF EXOl THEN PRINT "YOU HAVE NOTHING TO 
DETONATE":GOTO 178 

1848 IF NO™19 AND Wl=l THEN PRINT "THE WAR HEAD 
HAS DESTROYED THE SHIP" 

1842 FOR TD=1 TO 1000:NEXT 

1845 PRINT "MMRND YOU ALONG WITH IT":END 

1847 REM DOWN CRSR 
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8 5 0 IF H M1 9 P ’*■! T| — i j ;.j rr j-.j p p r j,! t n j fj p 

DETONATOR HRS BLOWN UP" 

352 "OP TD=1 TO 1000:rent 

355 PRINT "IT HRS KILLED VOU ,! :END 

IF U3=i RHD (NO™in OR N0=27> THEN GOTO 1RR0 
PRINT "INP0SSIBLEi!” : G0T0 17O 
PRINT "ONLV p FQOL MOULD DETONRTE R 

NUCLERR WEAPON INSIBE R SPACESHIP” 

•< 0~ = POP rn~1 TO pF'fipi : NPVT 

1333 PRINT "XKEBUT VON BID i m l! : ENTi 

1S95 REM DOWN CRSR 

1000 IF N0= 1.4 OR NO=21. THEN GOTO 102-0 
1310 PRINT "VOU CRN-"T”: GOTO 170 
1320 IF TIOl OR T2<> i OP TSOI THEN PRINT 
"VOU DON'T HRVE THE TOOLS" : GOTO 179 
1339 IF NOT OP VCM2 THEN PRINT "HOl.p i i " : 

GOTO.179 

1310 PRINT "VOU HRVE SUCCESSFULLV DISMRNTLED 
THE DOOR" 

j 350 Df ■' 3.12 > = ” 391.1" : DT (3, 13 > =" 1311" : GOTO 170 
1363 DATA " GO ", GET, CON, UHL., OPE, DON - HER, LIG, USE 
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i-;13 8 

POKE VO , 

15 : POKF 
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3140 

POKE VO. 

0:POKE 
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smi 

FOR TTj-1 TO 250 

HQ SUB 4000 ~ 

RETURN 

: HE 

NT 


3209 

POKE VO,15 : POKE 
L'-IF, 129 

HT 

,18 : POKE SR 

,ISO:POKE 

321 0 

POKE HF,p:pnKP ! 

LF, 

3?:FOR TH=1 

TO 1OO : NENT 

3220 

•TO Of?} 

3240 

POKE l.-iF, 0 : POKE ' 
GOSUB 4000 
RETURN 
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0 
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ROMAN EMPIRE 


This program has the potential to make you the most powerful 
person in the known world, Emperor of the Roman Empire! To be 
successful you must juggle all your available resources to 
produce a strong and prosperous Empire. You must balance your 
trade against the strength of your military, making sure all the 
time that you are providing enough food for your population. 

Each game turn is the equivalent of a year. At the beginning of 
each year you will be given a Senate report which shows the state 
of the Empire for the coming year. This report is veiy important 
and should be studied carefully. It shows the size of your 
population, the size of the army and navy, the size of the 
merchant marine and the amount of labour involved in shipbuilding. It 
also shows the number of merchant guilds producing goods for 
export, the amount of uncommited labour you have to allocate for 
the year, the size of your gold reserves, how much food you have 
stockpiled and how much food you will need to feed the people. 

The first job you have to do at the start of each turn is to allocate 
your uncommitted labour for the coming year. This is very 
important, especially in the early years when the Empire is small 
and struggling. It is important to get the relationships between 
the different areas of employment correct. The size of the army 
decides whether or not you will be able to win wars or put down 
rebellions in the provinces. The value of your export trade 
depends on the outcome of these battles. 

You must make certain that you have crews to man the number of 
ships that you are going to build. Each one of your ship building 
cohorts will build one ship per year. There is no point in having 40 
cohorts if you only have 25 crews. Likewise, it is very wasteful to 
have crews sitting around waiting to have ships built for them. 
Therefore, you must be sure to allocate enough labour to the 
navy and merchant navy to crew the ships you are building. 

Please note. You can subtract labour from any area just by 
entering a negative number and you can shuffle labour back and 
forth to your heart’s content until you have no unallocated labour. 
Once this figure reaches zero the program moves onto the next 
phase. This may be necessary on the first turn to correct any 
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imbalances you may start with. 

Each one of your guilds of craftsmen produce enough export 
goods to fill one ship. These trade goods earn your income. The 
local trading ships provide food for your people. 

After all your labour has been allocated, you will be given the 
opportunity to hire Auxilia units to augment your army. Auxilia 
points cost more than regular legions and they may not go quietly 
when they are fired. 

The next routine is the shipbuilding segment. As we have already 
said, make sure you have crews for all your ships. You can divide 
your ships between the navy and the merchant navy as you see 
fit. You will then be told how many ships you have available for 
overseas trade and you will be asked how many ships you wish to 
send overseas and how many war galleys are to escort them. 
Your merchant ships are always risking attacks by pirates so it is 
a good idea to send along war galleys as escorts. Any that you 
don’t send overseas are assumed to be patrolling home waters 
protecting your local trading ships. 

After you have made all these decisions, you will be advised if 
there are any wars or rebellions underway around the Empire. At 
the conclusion of this section, you will be told how well your 
forces fared and your losses in the conflict. Be warned, if you lose 
a battle your losses can be heavy! The computer will give you a 
complete list of your losses and any alteration to your trading 
value after each fight. 

The next routine tells you about the losses that piracy has 
inflicted on your merchantmen. These losses can be reduced by 
protecting your merchant navy with a strong force of war galleys. 

Following this you will receive a full report of your financial 
transactions for the year including your trading figures and your 
expenditure on the armed forces. The bottom line will be the 
amount of gold in the treasury. 

Your people now need to be fed. The next routine in the program 
will tell you how much food your local trading ships brought back 
and if this was enough. If it wasn’t you’ll be forced to import more 
grain at greatly inflated prices. 
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Thefinal routines for each turn coveryourpopularityandgiveyou 
a points score based on the state of the Empire and your efforts 
to expand it. This score may fluctuate widely during the game, 
even going into negative numbers if you are doing a very poor job 
as Emperor. 
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iQSUB 7098 : REM 
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OSUB 1150 : REM 
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OSUE 1 378 : REM 
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188 

GOSUB 2418 ■ REM 
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GOSUB 2550 : REM 
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i 20 

GOSUB 2789 : REM 
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REM CLR SCEH 
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268 

MR=INT i S#RNB i 1 
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”7 7'-j 

LE=INTaGARNIK 

1 ) > i i 

288 

MC=2800 ; LN-WS : 

LM=M8 : GV~ : 109 

230 

L3=INTC30*RNIK 

1 .?+ 16 

300 

U L = 258 •- L S - L E -- L. 

M . LN--LF! 

310 

IF UL.<0 THEN G 

0 ! U 218 

328 

X$=" iiiiiiiii® iftiiiiil® 

rr 

REM HOME RIGHT 

CRSR 

339 

V$= !! 'fiMtfflsMelPM® 

lRl!5TsT?IinIinl5lStl6!llSI?IS!l3B53 ' 1 
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REM Tjf’LiH RpRR 
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VO ::; 54236 ; FlJj=54 
; LF= 54272 

277 : SR-54278 : WF=5 

350 

RETURN 
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830 

PRINT ! T 

1" : REM CLP 

SCRN 

848 

X=1 ■ V=S 

GOSUB 6850 


850 

PRINT 'T 

10. OF RUN IL 

Ifi UNITS FOR HIRE = ";MR 

860 

PRlMl t 

SWO.OF RIINI 

LIfi UNITS HIRED = ";MH 

965 

REM DOM 

1 CRSR 


370 

PRINT ") 
GOSUB 61 

TOO YOU W13 

"138 

H TO., ..." GOSUB 5800: 

O G <:U 

PRINT !? 

::i> * HIRE 

RUNILIA UNITS" 

O C{ s/i 

i J 1^1 

PRINT " 

:!2) = FIRE 

RUNILIfl UNITS" 

000 

PRINT " 

23) = NONE 

OF THE ABOVE"; 

818 

INPUT E 

IF B<1 OR 

B>3 THEN GOTO 910 

920 

IF E : =l ‘ 

fHEH GOTO 9 

50 

y x y 

IF B : ~2 THEN GOTO 9 

SO 

948 

IF B=3 

r HEN RETURN 


958 

PRINT ’0 

SHOW MANY L 

NITS WILL YOU HIRE" 

q r.v !rr 

REM DOW! 

■! PROP 


960 

INPUT B 

IF B>Mfl OR 

BCG THEN GOTO R58 

970 

MH-ilH+B 

MH-Mli-B : GO 

TO 830 

4 O 1; j 

PRINT ”) 

flHOW MANY l.l 

HITS WILL YOU FIRE" 

990 

INPUT B 

IF £>MH OR 

ECO THEN GOTO 990 

1888 

MH=MH-] 

: MR=Mfl+B : M 

I=B#20 : N“INT <100*RND (1) + 

1810 

r K 1 \'i \ 11 u 

TiSiTHE AUNT 

LI A YOU HAVE FIRED ARE".. 


"THREATENING TO M 

ARCH ON ROME ! ! HT' 

1815 

f”, r* *:*,•? «•*•• | r 

3CRH DOWN 

CRSR LT RED YELLOW 

1020 

GOSUB f. 

?.000 : IF UK 

N THEN GOTO jl20 

1038 

PRINT ! 

'MSHiMilTHE 

RUNILIA ARE RIOTING!": 


GOSUB 5200 : GOSUB 

608O 

1835 

REM DO!. 

IN CRSR REV 

ON RIGHT CRSR 

1840 

j i;~ l NT ' 

. 0:t:RNI) ( 1 ) + 1 

)*1 COO ■V* INT < 28#RND (1> +1 


$ 1088 : 1 

1=1 NT < 10$RN 

D (1> +1>+2 

1858 

PRINT ' 

STTHEY HAVE 

LOOTED YOUR TREASURY OF 


!J; , "GC 

O PIECES! 

GOSUB 6O10 

I860 

PRINT "ilFlNI) PUT"; 
": GOSUB 6810 

V;"CITIZENS TO THE SWORD 

1070 

PRINT ' 

'WLRBOUR KI 

I...LED : -••": GOSUB 6018 

1 030 

PRINT ' 

» ppqjrr 

DS ; THT(WNS) 

1 :~Ct "I 
a- -a 1 

p p T k {T : 

'SHIP BUT! B 

ING ="; INT(WNS) 

1100 

TR=TR-l. 

f !,} 

: POPO-V • L 

S=L8-~ I NT ( W/3 >: LE=LE-1 NT 

4 J 4 f *~ t 




ill J-J 

bUbUB * 

obOG bU r i ! o 

SO 

X iut 1 

PRINT 1 

'SITHE RUNIL 

Ifi UNITS HAVE DECIDED TO 1 
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1130 PRINT "RETURN TO THEIR HOMELANDS 
PEACEFULLY" 

1140 GOSUB 6000:GOTO 830 

1150 PRINT "3" •• US=LS: REM CLR SCRN 

1160 IF US=0 THEN PRINT "rMMWOU HAVE NO MORE 


SHIPS TO BUILD" : GOSUB 6010 : RETURN 
1165 REM CLR SCRN DOWN RIGHT CRSR 
1170 PRINT "3SHIPS TO BUILD =" ;IJS 
1175 REM CLR SCRN 
1180 NW=LN~WS:MU=LM-~MS 

1180 PRINT "KNO.OF CREWS WITHOUT WAR GALLEYS: 

"; nw 

1195 REM DOWN CRSR 

1200 PRINT "NO.OF CREWS WITHOUT MERCHANT SHIPS: 

"MW 

1210 PRINT "MOO YOU WISH TO BUILD." 

1228 PRINT "a> - WAR GALLEYS".. ..." (2> = MERCHANT 


SHIPS" 

1230 PRINT "<3> = NONE"; 

1240 INPUT B 

1250 IF BC0 OR B>3 THEN GOTO 1249 


1260 

IF E“1 

THEN 

GOTO 

1290 

1278 

IF B=2 

THEN 

GOTO 

1328 

1289 

IF B=3 

THEN 

GOTO 

1358 

1290 

PRINT 

"WOW 

MANY 

WAR GALLEYS WILL YOU 


BUILD"; 

1295 REM DOWN CRSR 

1300 INPUT B : IF BC0 OR B>US THEN GOTO 1390 
1310 US=US~B : US-WS+B : GOTO 1169 
1320 PRINT "SHOW MANY MERCHANT SHIPS WILL YOU 
BUILD"; 

1330 INPUT B•IF B<0 OR B>US THEN GOTO 1330 
1340 US=US"B: MS=MS+B ’• GOTO 1169 
1350 RETURN 

1370 IF LN>WS THEN Wfl=WS 

1388 IF WS>=LN THEN WA=LN 

1398 IF MSX.M THEN MU=LM 

1400 IF LM>~MS THEN MU=MS 

141© PRINT "3":GOSUB 6028 

1415 REM CLR SCRN 

1428 X~1 : Y=5 : GOSUB 6859 

1438 PRINT "WAR GALLEYS AVAILABLE =";WA 

1440 PRINT "MERCHANT SHIPS AVAILABLE =";MU 
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PRINT "MVOU CRN SEND UP TO”;LE;"MERCHRHT 
ourpc Tf; ii . i'TRRTiF nVFRSFAS" 

TRRIiE" 


'HOW MRNV WAR GRLLEVS WILL ESCOR" 


B<8 OR B>Wfi THEN GOTO 1.580 




V~6 00SUE 0050 : PRINT " S12HECKINO FOR 
WARS ONE RESELL I OHS!U" 

REM RE'. ! Or: PURPLE VELLOUS 

PP~ I NT 1 000:i-:RHD ( 1 > +1 > + (' VF#3 > 

IF P P >958 T H E N X = 5 : V ~ 10 : 008U B 6050 : V F = V F + 5 
IFPP>9587HENPRINT"THERE ORE NO WARS OR 
R E B E L. L10 H 8'' : 0 0 S U B 6828 : 00T 0 17 4 © 

IF Pp< i 75 THEH fi$~ 1 ‘ WRR " : B$~' 1 WITH CfiRTHROF" 

:GOTO 1638 

IF PRO358 THEN fi$~" RESELL I ON" ; E$=*" IH GfiUL" 

: GOTO 1.700 

IF PR<458 THEN R$="RESELLION":B$="IH 
BRITAIN” : GOTO 1788 

IF PR<525 THEN fi$="WRR":B$~"WITH MRCFDONJR" 
:GOTO 1710 

IF P p <625 T HEH Fi $~ 1 ' WfiR " : E$ ='' WITH PfiRT HI Fi" 

:GOTO 1710 

IF PR<075 THEN fi$=”WAR" : 6$=”WITH GREECE" 

: GOTO 1.720 

IF PR <758 THEN fi$= "WAR" : B$=" WITH PI RTF;" 

:GOTO 1728 

IF PR<375 THEN fit-"REBELLIOH":B$*"IN JUDEfl" 

:GOTO 1720 

IF PR <325 THEN A$=" REBELL I ON" •' B$~" IN SPAIN" 

■ GOTO 1.730 

fi$~ "REBELL I OH " : B$= " OH CRETE": GOTO 1730 
G™ I NT (15#RND < 1) > +5 •' !~j= 1.3 : GOTO " 1750 * 
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] H ! 




T NT :!:!. 2#RHD 1 1 > > +3 ■ H= i6 : GOTO 1750 
I NT ! OTEND <•; 1 >+2 : H= 1.4 : GOTO 1759 
INT<8*EHD(l>> +1:H=i.2 : GOTO 1758 
T |-..jT (4*RHD>■ I ) > + 1 H~= 1 : GOTO 1.750 
I NT 07001) : 1 > > + 1 ■ GOSUB 6830 ■ PR= 189 : FH~ 189 


1778 GOSUB 3888:RETURN . 

1830 TF Trie.45 THEN ZD= 1 5" GOTO i 868 

1888 PRINT "T 

1880 Vr-'o : 1 : 00 SUE 6958 : PRINT "VOUR CHANCE TO 


1 

23G 

j" p: 

IH 

T !J 

■rfjtfsi 

'•}))' : i ,: 'ii : 

ip -;lv -;fj* 

ROME IS 

DEFEF 

TED 







*nr 

: GOSUB 

^4 pi p| 




1 

•7; r~ 

r -,r 

r:.i; 

~ j *»1 

1 ) 0 !' 

IK f 

P p 

REV 0 

N WHIT 

E VEL 

.LOW 


1 

i. 

840 

1 . i u 

j:::n J 

NT ’• 

194 

RND 

< 1 > +1 4: 

H) : IF 

WWTWL 

THE!- 

NW=WL 

•? 

Ci 

M j 

i— T 

NT s 

28 

r»*. i ■“< 

!\Si.U 

C :!. > +7# 

H) : IF 

MU>ML 

THE!- 

MW=ML 

1 

d| :t!T i 

ri> 

' i. 

NT' 


hd •: 

1 ) + 2 *H 

> : I F ! : 

X>Mn 

THEN 

MX=f *10 

1 

c:» N? 


*.r 

: i 


MTi ( 

j. 1 : M H 

■;? : T p j, 

i,.in 

THFW 


1 

•"*: :~ s 

?"!] j 

M “1 


; ; j ; : p 

N3K 

1 ) -4 -1 # H 

V T ir p 

M./Lft 

THEN 

F!W=Lfl 

1 

938 

31* 

i=i 

HT< 

8 #F 

me 

1 > -i -1 *H 

> : IF 8 

W>MH 

THEN 

SW-MH 


yuy 

r~’. 

j 

N T ! - 

20 * 

RND 


*? 





0 1 0 

p 

rpnf 

NT 

5*8 

HD < 

1 > +35 > 





2 

020 

O 

T 

HTc 

3*R 

NIK 

i ,'4':h,‘ • 

IF SX> 

LS THEN S3 

1 !.... 2 ; 

•**% 

038 

£} 

T 

Ml »: 

":+P 

• j . ’ *T; 

1 > *H> : 

if en:> 

LE THEN E> 

l—LE 

***** 

.;**!* A t ;***.» 

V r 


p.... •? 

NT < 

i.j :•!=: 

> : GOTO 

01 68 




****• 

j**!^ nr i**!j 

D G 

p {. 1 

I 

M 


: i!*- : m ; : Hi : ‘X- 

* ROME 

is \ 

'ICTOF 

; 1 0IJS 




HF?; 



• !* m I s! • 

oin 

GOSUB 

5408 





jFj nr nr 

REM 

DO!' 

•IN C 

RSR 

REV 0 

N L.T R 

ED VELLOW 


2 

860 

Ml 

i ;r - :: I 

NTc 

!jb: Q 

HD i 

n+i*H 

> : IF Ui 

UDHL 

THEN 

WW=WL 

2 

079 

ML- 

i" I 

NT <: 

10*RND 

( ;[ ) +3* 

H> : IF 

MW>ML 

THE!- 

! MU-“ML 

2 

0H:j 

jy» \ 

~ 1 

: IF MC 

:::::0 

then" !1 

H=8 
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2930 
2 i 00 
211 0 
2120 
2130 
2148 
2158 
2160 
<2 1 b-J 


2178 

2188 

2130 


2280 

2210 

2228 

2238 


2248 


68 

70 


2780 


1285 


00 


!00 


' 1 j“l 


2320 


2340 


nr fi 
c. J 


2360 


78 



:, 428 




WX~8 

AW==INT<2#RNDa> + l*H> = IF AW>LA THEN AW=LA 
SU=INT<3*RNDa> + l#H>: IF SW>MH THEN SW=MH 
FX= 108 
PX=100 

EN=8 : VF--VF+INT C0$1. 5) 

PR I NT : PR I NT " SWl_OSSESHir 

REN REV ON RIGHT CRSP ORANGE DOWN CRSR 

YELLOW 

PRINT WW;"LOCAL WARSHIPS" 

PRINT WX;"OVERSEAS WARSHIPS" 

PRINT:PRINT MW;"LOCAL MERCHANT SHIPS" 

PRINT MX;"OVERSEAS MERCHANT SHIPS" 

PRINT:PRINT Rw;"LEGIONS" 

PRINT 3W;"RUNILIA UNITS" 

PRINT:PRINT 100 --FX; "X of FOOD STOCKPILE" 
PRINT 180-PX OF THE FMPIRF-'S pop! I! AT ION" 
PR I NT : PR I NT SX;" SHIPBUI L.D ING COHORTS" 

PRINT EX; "CRAFTSMAN GUILDS*!" 

PRINT:PRINT:GOSUB 6000 

PR I NT '73": X=3: V = 10: GOSIJB 6050 

REM CL.R SCRN 

IF ZBOZC THEN PRINT "ROME•'3 TRADE VALUE 
INCREASES BY";G;"X" 

IF ZBOZC THRU VI =V! +0 

IF ZE>ZC THEN PRINT "ROME'S TRADE VALUE 

DECREASES BY";G;"X" 

IF ZB>ZC THEN VL=VL-G 

PRINT-PRINT TAB OS) "TRADE VALUE IS NOW"; 

i,,t| * »V** 

GOSUB 6080 

W S~W 3 - W W - W X: L H=L N - W W - W X 

MS=MS-MW.MX : L.M~LM.MW-MX 

LR=LA-AW:MH”MH-SW 
FS“INT < FS#FXX188 > 

P0»INT(POfcPX/180> 

LS~LS~SX:LE=LE-€X=RETURN 
PR I NT" IT : X~7 : Y~6 : GOSUB 6050 
PRINT "SsPIRfiTES ATTACK YOUR SHIPPINGS": 
GOSUB 5000 

RL=INT<50sKRNDa>+50> 


no 








2435 REM REV OH WHITE YELLOW 
2440 RP=INT(<RL-WL>/10 > 

2450 IF RP<0 THEN RP=8 

2460 IF RP>ML THEN RP=ML 

2470 ML "ML-RP : MS=MS-RP : LM=LM--RF' 

2480 PRINT:PRINT rr ;"LOCAL MERCHANT SHIPS LOST" 
2490 RO-1NT < 58*RND(1> +50 > 

2500 RQ=INT <(RO-WO>/10 > 

2510 IF RQC0 THEN RQ=0 

2520 IF ROMO THEN RQ=MO : MO=MO-RQ : M8=MS--RQ : LM= 


LM-RQ 

2530’PRINT:PRINT RQ;"OVERSEAS MERCHANT SHIPS 
LOST" 

2540 GOSUB 6810:RETURN 

2550 PRINT "73":X=3:V=1 : GOSUB 6050 

2560 PRINT "FINANCIAL RETURN!®!" 

2565 REM REV ON LT RED YELLOW DOWN CRSR 
2570 PRINT I NT <ML*VL>LOCAL TRADE RETURN" 
2580 PRINT INT<M0*VL.*28); OVERSEAS TRADE 


RETURN" 

2598 TR=TR+1 NT < < ML*VL > + < MO#VL*20 > > 

2600 PRINT TR; "•= GOLD IN TREASURY" 

2610 GOSUB 6020 '• X=3 : V=9 : ADSI IB 6050 

2628 PRINT "SnEXPENSESil": PRINT 

2625 REM REV ON LT BLUE YELLOW 

2630 PRINT <MH#2580);"FOR";MH;"RUXILIA UNITS" 

2640 PRINT LA&580;"FOR";LA;"LEGIONS" 

2650 PR I NT LN#508; " FOR "; LSI; " NAVAL CREWS" : PR I NT 


"MM" 

2660 TR=TR-<LR#500>-<LN*500>-<MH*2500 > 

2670 PRINT ":»SIFINRL BALANCE!?!" : PRINT 
2675 REM REV ON PURPLE YELLOW 
268© PRINT TR;"GOLD PIECES" 

263© GOSUB 6880:RETURN 

2780 FV=INT <48*PHDC1> >+35 

2720 PR I NT " 73" : X= 3 0: Y=2: GOSUB 6858 

2730 PRINT " SIFEEDING YOUR PEOPLE**!!" 

2735 REM REV ON -LT GREEN DOWN CRSR YELLOW 
2740 PRINT "YOUR";ML;"LOCAL MERCHANT SHIPS" 
2750 PRINT "HAVE PURCHASED";INT <ML*FVX100>; 
"FOOD POINTS" 

2768 PRINT "fcFLUS YOUR FOOD STOCKPILE OF" 

2770 PRINT FS; "POINTS GIVES YOU";FS+INT<ML.*FV/ 


in 





1.00)"FOOD POINTS" 

278Q FS=FS+INT(ML#FV/108) 

2798 FS=FS-FR ; IF FS<8 THEN GOTO 2810 
2800 PRINT "MWTHERE IS PLENTV OF FOOD FOR RLL" 
:GOSUB 6880:RETURN 

2810 PRINT "K«S»iiiirr'OU HAVE STARVED THE 
PEOPLE!!M" 

2820 PRINT "THEV NEED";AES <FS >;"FOOD POINTS" 
2838 OOSUB 6888 : TR*TR+<2088#FS> 

2848 PRINT "PAV "-2808#FS; "GOLD PIECES TO 
IMPORT","GRAIN AT INFLATED PRICES" 

2850 VF--VF- < 2*FS > ■' FS=8 
2860 GOSUB 6880 : RETURN 

2878 PRINT "SCTiMMWiHKkPOPULARITV REPORTS" -' 


2875 REM REV ON CLP. SCRN RIGHT CP8R DOWN CR8R 
CVflN VELLOW 

2830 IF VFC0 THEN GOTO 3818 

2938 PRINT "HPiftllffT'OUR RULE IS STILL POPULAR" 

3808 GOSUB 6080 : RETURN 

3810 PRINT "IMPERIAL INTELLIGENCE REPORTS" 

3820 PRINT "THAT VOUR RULE IS NOT POF-lil RR" 

303O PR I NT" SSVQU NEED"; ABSCVF); "POINTS TO BECOME 
POPULAR":IF TRC1000 THEN RETURN 


3035 

REM DOWN CRS 

"ifi'df": 

PRINT "SHOW 

3050 

PRINT "ROME 

3860 

INPUT A 

3070 

IF R=0 THEN 

3880 

A~INT<A/1808 

3090 

VF-VF+R 

3188 

RETURN 

3118 

P0*INTCP03fil, 


WX»8: MN--0: AW=0: SM a 8: FX-8 
3128 MA"MR+1 NT < 6*RND < 1 +1 : PN~0: SN-0: FN=0 
3130 TN-TH+1 : UL”INT<PO/2588> 

3148 SC*INT <<(Lfl+LN+LM+LE+LS >*■ 188> + <TR/2> + <PO/ 
50)/': 100-TN)) 

3145 PRINT "2ftlMiSi*»*»i»fV0UR SCORE = ";SC : GOSUB 

Fl M 

3147 REFfCLR SCRN DOWN CRSR RIGHT CRSR 
3158 IF TN>-~36 THEN GOTO 3178 
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3 160 

X=1 : 

V ”10 : OOSUB 

6050:GOTO 40 


3170 

FOR 

TD =1 TO 1580:NEXT 

‘: PRINT "7 

" : REM CLR 


SCRN 





3175 

X~ 12 

: V=12 : OOSUB 

6058 



3180 

PRINT "THE ORME 

IS OV 

ER! ! ! " 


3185 

, v l M<M l^| • 

V=14 : OOSUB 

6058 



3130 

PRINT "VOU SCORED";SC 

; "POINTS" 


32O0 

END 





5800 

REM 

SOUND 




5910 

POKE 

RD,17:POKE 

SR, 13 

2:POKE WF 

17 

5828 

POKE 

VO,15:POKE 

HF, 68 

: POKE LF, 

143 

5830 

FOR 

TB=1 TO 358 

: NEXT 



5048 

POKE 

VO,0:POKE 

,-IF, 0 



5050 

RETURN 




5200 

REM 

SOUND 




5210 

POKE 

RD,17:POKE 

SR, 13 

2:POKE WF 

•‘’V-l 

O'-* 


POKE 

VO, 15 




5230 

POKE 

HF■5 : POKE 

F , 1 55 

: FOR! TD=1 

TO 1800:NEXT 

5240 

c- ,-l rt.r. 

POKE 

PPM 

WF,0 : POKE 

cr?| If-.iTi 

Vo;0:R 

ETURN 


■jT'Jt) 

5410 

r.L.! ! 

POKE 

VO,15:POKE 

RD, 18 

: POKE SR, i 

54 : POKE WF,17 


5420 FOR TT=1 TO 3 : POKE HF.. 102 : POKE LF, 194: FOR 


TB=1 TO 150:NEXT 

5430 POKE HF.-0 : POKE LF,0=FOR TD~1 TO 150:NEXT: 
NEXT 

5440 POKE VO, 0 : POKE WF, 0: RETURN 


5800 PR I NT " nSfcSENATE REPORT: VERR "; RES < TN > 
"E. C. SIMP " 


■ KIT " 

"spaces 


TAB26 > 


" : REM 


5810 

PRINT 

"SliFOPULflTION" , PO 

5320 

PRINT 

" RRMV 

LEGIONS",LA 

5830 

PRINT 

"RUXILIfi UNITS",MH 

5840 

PRINT 

"SWA R 

ORLI EVS" ■ IJS 

5850 

PRINT 

» HRVV 

CREWS",LN 

5860 

PRINT 

"^MERCHANT SHIPS",MS 

5870 

PR | j JT 

"MERCK 

RNT SHIP CREWS",LM 

5330 

PRINT 

"WSHIPEUILBINO COHORTS";LS 

5830 

PRINT 

"CRAFT 

SMRN GUILDS",LE 

5800 

PRINT 

" SJJNAL 

LOCATED LABOUR",UL 

5310 

PRINT 

"SCOLD 

IN TREASURY",TR 

5320 

PRINT 

"FOOD 

STOCKPILE", FS 
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5930 

5950 

6000 

6010 

6020 

6030 

6040 

6050 

6070 

6080 

6090 
6100 
6110 
7080 
7010 
7028 
7038 
7040 
7050 
7068 
7100 
7118 
7120 
7138 
7140 
7150 
7400 
7410 
f 4ciy 
7430 
7458 


PRINT "FOOD REQUIRED" .■ FR 
nOSUB 6080■RETURN 
FOR TD=1 TO 1800 : NEXT TD 
FOR TD”i TO 500:NEXT TD 
FOR TD=1 TO 475:NEXT TD 
FOR TD=1 TO 25:NEXT JD 
RETURN 

PRI NT LEFTS <X$,X >; LEFTS < VS,V >; 

RETURN 

X=10 : V=22 : OOSUE 6050:PRINT «g|WIT ANY KEV 


TO CONTI NUEfil" : OOSUB 5000 
GET m 

IF PS~"" THEN GOTO 6090 
RETURN 

POKE 53280,6:POKE 53281,7 
XX$=" ROMAN EMPIRE" 


FOR XG=1 TO 26 
G2S”M IDS < XXS.. GX, XG > 

PR I NT " ; G2S; 

GOSUE 740O 
OX“OX-1 


NEXT 

POKE VO,0:POKE NF,O:POKE HF,0:POKE LF,0 

FOR TD=1 TO 1000:NEXT 

PRINT "IT*:POKE 53280,3:POKE 53281,6 


RETURN 


POKE VO,15:POKE fiB,17:POKE SR,18:POKE [,\p ,1 
POKE HF,INT <100#RND<1)+75 > 

POKE LF,INT <100#RND<1> +120> 

FOR TD=1 TO 50:NEXT 
RETURN 
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BATTLE OF BRITAIN 


This program recreates the first fourteen days of September, 
1940. You are in command of the 11 th Group, Royal Air Force and 
your duty is to deploy your Spitfires and Hurricanes to prevent 
the Luftwaffe from bombing its chosen targets. 

At the beginning of each day you are given an intelligence report 
which shows an estimate of the total number of serviceable enemy 
aircraft available and the state of readiness of your airfields. These 
factors continually change throughout the game. Aircraft will be 
lost in combat, your rate of replacement aircraft becoming 
available will alter if your aircraft factories are bombed and your 
serviceability will be affected if your airfields and early warning 
radar stations are attacked. 

After you have read through your intelligence report, the Luftwaffe 
will choose its targets for the day’s raids The screen will clear and 
you will be given the opportunity to deploy your aircraft to provide 
the best possible defence. 

It is extremely important to get as many of your aircraft as 
possible into action. The number of fighters which manage to 
intercept the incoming bombers will be reduced by poor 
deployment and by bad weather. You will be given a weather 
report each turn which will show you the amount of cloud cover. 
On days with heavy cloud your aircraft deployment is very 
important. 

If the Luftwaffe carries out successful attacks on your Radar 
stations or on your airfields your level of serviceability will be 
drastically reduced on the next turn. This will affect the number of 
fighters you have available and the number of aircraft which are 
likely to intercept the Luftwaffe bombers. Raids on the aircraft 
production factories will reduce the number of replacement 
aircraft being built. 

Although the odds are heavily against you, careful planning and a 
degree of good luck will bring you a victory. 

The program is controlled by the main loop in lines 40 to 110. 
Building up the program in modules such as this makes for batter 
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running of the program and also aids debugging when a problem 
arises. 

Line 20 calls up the initialisation routine. Strings are set up to 
hold the names of all the aircraft and various other words which 
are used throughout the game. These are then used in PRINT 
statements. This saves a lot of repetitive typing and makes the 
statements more flexible. Lines 5050 to 5080 give the starting 
strengths of all the aircraft and also initialise the variables used 
to work out the serviceability of the British fighters (BS) and the 
German aircraft (GS). The variable DD is used to count the 
number of days played during the course of the game. Lines 
5090 and 5100 set up the cursor strings which are used to 
position PRINT statements on the screen. 

In lines 5200 to 5240 we have a series of FOR/NEXT loops which 
are used to provide time delays in the program. Loops of different 
lengths can be obtained by using GOSUB and calling up different 
line numbers. For instance GOSUB 5200 will provide a delay of 1 
to 2000 while GOSUB 5220 will give you a delay of 1 to 500. Line 
30 calls up the start routine and, after it is over, we then go into 
the main game loop. 

Line 40 calls up the intelligence report display at the start of each 
turn. Lines 1010 to 1070 work out and display the estimate of 
serviceable Luftwaffe aircraft. This number is roughly based on 
the actual number of bombers and fighters available in France at 
the time. Line 1090 and 1110 perform the same task for the 
British fighters. Once again we have tried to keep to the number 
of Spitfires and Hurricanes which the 11 Group had available. 

The routine from line 1500 works out the Luftwaffe targets each 
turn. We are not going to give too much away about how this is 
done, but the method creates results which are related to 
historical fact. Line 1580 works out the weather factor which is 
used to decide the cloud cover. Heavy cloud will greatly reduce 
the number of fighters which go into action. 

Lines 2000 to 2400 allowyou to choose the areayou are going to 
defend. This routine then compares the Luftwaffe plan of attack 
to your choice and works out what percentage of your fighters 
will intercept the bombers. 
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Lines 2500 to 3110 contain the battle routines. Each aircraft 
type is given a percentage chance of shooting down an enemy 
aircraft. The weather factor, the degree of serviceability and the 
interception rate, (I R), is then used to work out how many of each 
type of aircraft joined in the battle. L ; nes 2900 to 3110 then use 
the percentage chance to work out victories as each type of 
plane goes into battle. The results will print up on the screen 
aircraft by aircraft. 

Line 90 calls up the routine which controls the results of the 
bombing attacks and awards victory points to the Luftwaffe. Line 
110 calls up the lines which provide the R.A.F. Bomber Command 
reprisal raids and award victory points to the R.A.F. 

Line 3910 checks to see if the game is over, and if so, sends the 
program to the end routines. If you find that the game is too 
difficult to win, you can improve your chances by adding ten to 
the numbers in lines 3940 to 3990. 

If the game is still in progress we then go back to the start of the 
main loop to go through another day in September, 1941. 


10 f 


JEM 


m BATTLE OF BRITAIN M 
0 G0SI.JB 5080 : REM INITIALISE 

START 


30 

GOSUB 

6000 ; RE 

4y 

GOSUB 

1 000 

50 

GOSUB 

1 500 

60 

GOSUB 

p m Pi Pi 

70 

GOSUB 

2500 

80 

OUoUB 

3200 

90 

GOSUB 

3400 

100 

GOSUB 

: 3700 


1 10 
1001 : 

too; 

1005 

1 . 00 " 

1011 


TAE 


H F 


INTELLIGENCE 


GOTO 3300 

7j pp J Kj J 1! rr ] i ! 

REPORTS®]" 

REM CLP. SCRN RED BLUE DOWN CRSR 
PRINT TAB <14> "^SEPTEMBER"; DD;"SSM" 
PPM REV ON REB REV OFF BLUE BONN CRSR 
PRINT "ESTIMATE OF SERVICEABLE "JLU$;' 
PLANES" : PRINT 
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1020 PRINT B9*;" = ";INT(B9*G3*(4@*RHD<1)+80>/1@0 
1038 PR I NT E 8$" = "; I NT (B8*GS* (40#RND (1 ) +80 ) /100 
1048 PRINT HEf;" = ";INT <H1#GS#<40#RND<1)+80 >/100 
1050 PR I NT DO#;" ="; I NT < D7#GS# '■ 4Q*RND < 1) +80) / 
100) 

1068 PRINT JUT;" =";INT <J8#GS* <48*RND<1)+80 >/ 
100 ) 

1870 PR I NT ST $; " = "I NT < J7*GS* < 4@*RND (1) +88) / 


100) •• PRINT 

1030 PRINT TABC8) "«lll GROUP FORCES 
:PRINT 

1085 REM RED BLUE 

1 098 PR I NT SPT ; " = " ;I NT ( SP*B8/ 1 00 ) 

1100 PRINT HUT;"=";INT(HU*ES/180) 

1110 PRINT EFT;” ; BF 

1120 PRINT:PRINT "R„ A „ F„ AIRFIELD 


AVRILRBLE8" 


SERVICEfiBILITV=";BS;" X " 

1130 N~9:Y-22 : GOSUB 5300 
1148 GOSUB 5260:RETURN 

1500 PRINT 1 ‘infisMPMf®ITHE "LU$; " IS PLANNING 
ITS ATTACKSB" 

1505 REM BLACK CLR SCRN BONN CRSR RIGHT CRSR 
BLUE 

1518 GC=INT(2000#RND(1) +1) + < LL*2)+CF 
1520 IF GCC300 THEN GT =1 ; GC$="RADAR STATIONS": 
GOTO 1580 

1530 IF GCC1200 THEN 0T=3:GCT="FIGHTER 
AIRFIELDS":GOTO 1580 
1548 IF GCC1500 THEN GT=4:GC$="FIGHTER 
PRODUCTION FACTORIES":GOTO 1580 
1558 IF GCC1800 THEN GT=2 : GC$="ENGLISH CHANNEL 
PORTS":GOTO 1530 

1560 IF GCC2081 THEN GT”5 : GOT-"SMALL INDUSTRIAL 
TOWNS":GOTO 1588 
1578 GT=6:GC$="LONDON" 

1588 WF= 150--1 NT (108#RND < 1) +1) : IF WF> 180 THEN. 
WF=100 


1598 GOSUB 5210:RETURN 
2008 PRINT "E" - PRINT TAB(7) "SW11 GROUP 
DEPLOYMENT CHOICE3K1" : GOSUB 5228 
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2005 REM CLR SCRH REV ON RED BLUE DOWN CRSR 
2010 PRINT "^WEATHER REPORT : 108-WF; "X CLOUD 


COVERM" 

2015 REM DOWN CRSR 
2020 PRINT LU$;" LOSSES =";LL : PRINT 
2030 PRINT "THE ";LU$;" HRS RBRNDONED RTTRC 
ON : " 

2640 IF <L.L*2> +CF-C301 THEN PRINT "NOTHING". 
2050 IF <LL#2>+CF>380 THEN PRINT "RRDRR 
STATIONS" 

2060 IF <LL*2>+CF>1199 THEN PRINT "11 GROUP 
FIGHTER AIRFIELDS" 

2070 IF <LL*2>+CF>1799 THEN PRINT "CHANNEL 
PORTS" 

2080 IF <LL.. # 2>+CF>2000 THEN PRINT "SMALL 


k 


2090 
2100 


2110 

2120 
2130 
2150 
2168 
2178 
2180 
2185 
2190 
2200 
2210 
2220 
2230 
2240 



180 


290 


INDUSTRIAL TOWNS" 

y=i:v-l1:GOSUB 5300 

PRINT "WHERE WILL VOU CONCENTRATE 11 

GROUP'S","DEFENCES?"-PRINT 

PRINT "1=RADRR STRTIOHS", rt 4=FIGHTER 

FACTORIES" 

PRINT "2-CHANNEL PORTS" .■"5-SMALL TOWNS" 

PRINT "3=FIGHTER AIRFIELDS","6=L0ND0N" 
INPUT D 

IF DCl OR D>6 THEN GOTO 2150 
GOSUB 5220 

PRINT :N-l:V-3 : GOSUB 5390 
REM CLR SCRH 

PRINT "VOU HAVE CHOSEN TO DEFEND" 

IF D=1 THEN PRINT "THE RADAR STATIONS" 

IF D-2 THEN PRINT "THE CHANNEL PORTS" 

IF D-3 THEN PRINT "THE FIGHTER AIRFIELDS" 

IF D~4 THEN PRINT "THE FIGHTER FACTORIES" 

IF B-5 THEN PRINT "THE SMALL INDUSTRIAL 

TOWNS" 

IF D=6 THEN PRINT "LONDON" 

GOSI IB 52?0 

PRINT:PRINT "THE ";LU$;" IS CONCENTRATING 
ITS" 

PRINT "ATTACK ON ":GC$ : PRINT 
IF GT=B THEN IR-180 
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IF GT.B=1 OR GT-B=-1 THEM IR-88 

IF GT.B~2 OR GT.D*-2 THEN IR=SO 

IF 0T~B~3 OR GT-B=-3 THEN IR=4@ 

IF GT.B>3 OR GT.D<~3 THEN IR=28 

PRINT IR; "Z OF VO UR FIGHTERS INTERCEPT" : 
PRINT:GOSUB 5220 

IF IR=188 THEN PRINT "11 GROUP HAS BEEN 
BRILLIANTLY DEPLOYED!" 

IF IR-88 THEN PRINT "11 GROUP HRS BEEN 
WELL DEPLOYED" 

IF IR=60 THEN PRINT "11 GROUP FACES HEAVY 
ODDS" 

IF IP-40 THEN PRINT "11 GROUP HAS BEEN 
POORLY DEPLOYED" 

IF IR=28 THEN PRINT "11 GROUP HAS BEEN 
TOTALLY OUTWITTED" 

GOSUB 5288:RETURN 

ZV= I NT (SP*BS*WFZ1880800* IR + 1 

KF=12 : RZf=SP$ : BT~1 

GOSUB 2988 

ZY=INT CHU*BS*WFZ1888000*IR) +1 
!<F=7 : ATT--HUT : BT=1 
GOSUB 2900 

ZY=INT(BF*GT*WF/S00)+1 
KF-3 • RZT : -"BF$ : BT=1 
GOSUB 2908 

ZY=I NT < B9*GS*WF/188* „ EG +1 
KF"14 ; fiZ$=B9$ : BT=0 
GOSUB 29801 

ZV~~ I NT < B8*GS*WFZ188*. 75 +1 
KF=5:RZ$~B0$:BT=0 
GOSUB 2988 

Zv=IN1 IH1*GS*WF/188*„4) +1 
l<F=2 ■ RZ$=HET ■ BT=8 
GOSUB 2980 

ZV= I NT (D7*GS*WFZ 188*. 4 ) +1 
A2T~ : B0T■ET=0 
GOSUB 2980 

ZY= I NT < J7*GS*WF/188*. 3 > +• 1 
ATTEST $; BT=0 
GOSUEi 2980 

ZV= I NT i J8*GS*WFZ 180*. 4 > +• 1 
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2750 KF=3 : FiZT=JUT : BT=0 
2760 GOSUE 2900 
2770 RETURN 
2900 PRINT 
7905 REM CLR SCRN 

291.0 PRINT "fj" ; ZV; 07$"S ATTACKS" : GOSUB 5220 
2915 REM RED BLUE 
29:20 FOR ZZ=1 TO ZV 

2930 IF INT <100*RHB(1> > +1=<KF THEN KI = 1 

2940 IF KI=8 THEN PRINT flZ*;ZZ;"." 

2958 IF KI= 1 RN.DBT = 1 THEN GOSUB 3008 = PRINT RZ$; 

ZZ; " ra"BZ$; " 3" : GOSUB 5580: PH=PH+1 
2968 IF K 1 = 1 FIND BT=0 THEN GOSUB 3880: PRINT FlZT 
ZZ;"r53"; BZT"3" • GOSUB 5588 : PH~PH+1 
2978 KI=8:GOSUB 5248'NEXT ZZ 
2988 PR I NT " n u ■ PR I NT " rs?" RZ$; " 8 DESTRO V "PH; 
"PLRNES3" 

2335 REM GLR SCPH RED BLUE 
2338 ph= 0:GOSUB 5280 : RETURN 
3800 3B=INT(i88*RND(1> > +1 


3010 

IF SB<20 THEN B7=B7 
GOTO 3870 

.1 : £Zt~ 

=BOf : L1=L1+1 : 

3020 

IF SD<44 THEN Hi=H1 
3070 

-1:BZ$= 

HET : L2-L2+1 : GOTO 

3030 

IF SDCSl THEN J8=J8 
3070 

••••1 : BZ$“ 

JUT : L3=L3+1 : GOTO 

3040 

IF SIX? 1 THEN J7=J7 

O M "7 fit 

-1 '• BZT~ 

: STT : L4=L4+1 : GOTO 

3050 

•Z' i 

IF SB<84 THEN B9=E9 
3070 

-•1 : BZ$= 

: B9f : L5=L5+1 ••GOTO 

3060 

B0=E0-1 : B2T=B0T : L6= 

LS+1 


3970 

LL=LL+1 U.8=1.0+1 : RET 

URN 


3080 

SB=INTa80*RNBa>> + 

1 


3090 

IF SB<76 THEN HU=HU 

~1: BZ$~ 

: HUT : L7=L.7+1 : GOTO 


3110 

3188 3P--SP-1•B2T=SPT:L8-L8+1 
3118 L 9=1.9+1 : RETURN 
3208 PRINT "T 
3285 REM CLR SCRN 

3218 PRINT "SWRIR L033ES-3EPTEMBER";DD 
32i5 REM REV ON RED 
3228 PR I NT " M3R . R. F. 3SB" 


121 












•"'415 

PRI 

NT " 

SM" ; GC 

.f • J i r*ja! i 

•*!•■ .« •:■:!!! 




3417 

PPM 

RE’/ 

ON RE 

D BL 

UE 




3428 

Ofl- 

UE 5 


1 : V= 

6 : 003 

IJE 5300 



3438 

IF 

GT=! 

THEN 

GOTO 

3488 




3448 

IF 

GT -2 

THEN 

GOTO 

3530 




3450 

IF 

pj-p 

THEN 

GOTO 

G5GP 




3460 

IF 

GT~4 

THFW 

GOTO 

3620 




7 •;!. *7!/! 

IF 

f5T>4 

THFr-l 

nnTfi 

3640 




3480 

77 - 

I NT ( 

(H 1 +D7 

JS 

< J7#2 

>>#WF#WF# 

GSZ 

500800 

3438 

B3= 

K S .,t 

7 






3500 

ppjj.IT n 

R . F: . F. 

Fl IR 

FIELD 

SERVICER 

BIL 

ITV IS 


REDUCED 

ii • 






35 i 8 

PRI 

NT !! 

TO";ES 

• 1 1 *>.' 1 ! 





3528 

VP* 

VP+Z 

Z : GOTO 

366 

0 




3536 

-71 "~i 
i‘~~ u.* *"“* 

IHTC 

(HMD7 

+.J 8 + 

J7) 

F*WF#GS/1 

000 

000 > 

3548 

VP- 

VP+Z 

Z : GOTO 

31> o 

0 




3560 

Kr ::r 

101 ~ 

I NT CBS 

$ i „ 4 

) : IF 

Kf-Ll THEN 

KF 

'=1 -FiZ$ 


»»r* 
iJC 

RflftN 

EONBE 

R" : BT=0 : Z' 

7 



* y cr 

flZ-f 

~'"GE 

RMflH E 

QUEER" : ZV 

=ZZ:ET-0 



. 7 , X: j 7 „« 

GO 3 

UE 5 

220:GO 

SUB 

2300 




3580 

t>-t 

I NT C 

7 7 1 i/| ' i 

i_. i— i x -u . 1 .• 

• ES= 

B3--ZZ 
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3590 

PRINT 

" R , I'i . F . 

AIRFIELD SE 

RVICEREILITV 

is' 


REDUCED 





3600 

PRINT 

1! Tf. II • T-s • 

IU jKu 

! 1 «.• ! 1 




3618 

VP=VP+ 

22 ; GOTO 

366 

0 



3620 

.22=-1 NT 

((H1+ D7-+ 

■J8f 

J7>#WF#I> 

IFTGS7 1000000 ) 


j £ ~ cr ( 

IF INT 

(100*RNr 

i < 1 > 

+ 1KWF THEN SR=SR~ 1 : HR- 


HR—3•> 

:=i 





3630 

IF X=1 

THEN PF 

:INT 

"PRODUC 

:TION DAMAGED! 

ii • 


x =0 : VF 

^VP+ZZ : t 

30TC 

i •Jfefc'0 



3648 

22=INT 

((H1+D7-+ 

•J8> 

#HF*WF*C 

iS / 1 000000 ) 


3650 

VP-VP4 

k— il- 





3660 

1 ; v — 

12:GOSUI 

cr •“ 

.J . -i 

00 



3fc« i ,J, 0 

PRINT 

22;"VICTORV 

POINTS 

ARE AWARDED T 

O 


THE % 

LU$ 





3680 

GOSUB 

5200:RETURN 




3700 

H1 =H 1 •+• 

GR:D7-D7 

+GR 

: J8=J8+C 

R 


3710 

J l' J f + 

GR:B9=B9 

+GR 

: B0=B0+G 

R 


3720 

3p::r:C;p.f 

SR : HIM4U 

+HR 

; DD=DD+1 



3730 

IF GTC 

>1 find g 

TO 

3 THEN B 

S=B3+2 


3740 

RETURN 






3308 

PRINT 

"21" 





3805 

REN CL 

R 8CRN 





3310 

IF RND 

< 1 > > .8 

THEN GOTO 3 

860 


3820 

PRINT 

"BOMBER 

COMMAND RAI 

DS FRENCH PORTS 

3830 

PRINT 

"ATTEMPTING 

TO SINK 

INVASION BAR 

GE: 

3840 

GOSUB 

5220-PR I 

NT 

"Ml VICT 

ORV POINT IS 



AWARDE. 

D TO THE 

RJ 

“1.F, " 



O £i ,.;j ir 

REM DO 

WN CRSR 





3850 

yp=VP- 

1 : GOTO S 

9 10 




3860 

PRINT 

"THE PRI 

ME 

MINISTER 

HAS ORDERED 



BOMBER 

1! 





3870 

PRINT 

"COMMAND 

TO 

LAUNCH 

REPRISAL RAID 

s 


flGflINS 

y ti 





3888 

PRINT 

"BERLIN! 

!! 




3830 

PRINT 

" 5S3THE FU 

HRE 

R IS FUR 

I niJS " 


3300 

CF=CF+ 

100 





3310 

GOSUB 

520O ■ IF 

DDL 

15 THEN 

GOTO 40 


3320 

PRINT 

h yjii 





3325 

REM CL 

R SCRH 





3330 

PRINT 

"SPSTTHE G 

AME 

IS OVER 

ran J ; 
u:sc 


3335 

REM RE 

V ON RED 

BL 

if: 



3340 

IF VP< 

46 THEN 

A3— 

"R.fl.F." 

: syntactical 

II 
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II 


3950 IF VP<56 THEN B$="TOTAL 
3970 IF VP>55 AND VP<65 THEN GOTO 4829 
3930 IF VP>64 THEN A*=LU$ : SYNTACTICAL" 
3990 IF VP>74 THEN B*="TOTAL" 

4800 X=1'V=18 : 08SUB 5308 


4018 

PRINT 

"THE "; A* 

; " HAVE WON A "E*; " 


VJRTOP 

v":nnm 4 

049 

4820 

PRINT 

"THE GAME 

IS A DRAW" 

4830 

PRINT 

"NEITHER 

SIDE HAS WON AN ADVANTAGE" 

4840 

PRINT 

"THE "; LU 

t ; 11 3 r: o R ED"V P" P 01N T S" 

4850 

STOP 



5088 

HE*--”" H 

E 1.11"‘DO 

*="DO 17" 

5818 

Ti’!$“" J 

!J 88 " : ST * 

*" jij 37 " 

5828 

T; " ft 

F 1.09" : E0 

*="EF~118" 


5838 

SPs 

••_r f 

PIT 

FIRE" 

•• HU* 

rr 11 

HURPICANF 

5840 

BR 

p:=" A 

, A.. 

GUN": 

t |$=s 

n L 

UFTWAFFE" 

5858 

HU- 

:: J t j y 

• Cp 

:=1.90 : 

BF=1 

80 

:HR=12 

5860 

D7- 

"388 

: H1 

4* 8 0: 

•J3--2 

70 

: SR=3 

5078 

T m V ... 

•J 1 = 

-158 

* 

=339 ; 

B0=2 

30 

; np-p 

5038 

GS= 

:: = = 

: BS 

=75 : D 

D=1 



5890 


~~”m 

Hiif 

WSSiS 


mi 

mimiiir 


Ktr! MUrlfc. L-L-KbK KIUH! UKbK 

5188 V$*" 11 

5185 REM DOWN CRSR 
5118 RETURN 

rr«r.r.-'in r, . 4 4 . , i tri it -i-t**. 


5200 

r~ r-i r**i 

r >...l !'R 

TD- 

= 1 

70 

1081 

: HEX 

T TD 

5210 

FOR 

TD- 

= 1 

TO 

588 

NEXT 

TD 

522i9 

FOR 

TD- 

1 

TO 

488 

NEXT 

TD 

5238 

FOR 

TD- 

„ -j 

TO 

98:NEXT 

TD 

5248 

FOR 

TD- 

:1 

TO 

18 H 

•IEXT 

TD 

5258 

PFTi 

JRN 







5260 PRINT "SWIT ANV KEV TO CONTINUES" 

5?65 REM REV ON RFD Til I IF 
5278 GET Ai 

5288 IF A*="" THEN GOTO 5278 
5298 RETURN 

5380 PRINT LEFT*<X*,X);LEFT* <V*,V);: RETURN 
5508 REM SOUND ROUTINE 

5518 POKE 54296,15■POKE 54277,24=POKE 54278,134 
• POKE 54276,17 

5520 POKE 54273,60:POKE 54272,149 
5538 FOR TD=1 TO 50:NEXT TD 
5540 POKE 54296,0:POKE 54276,0 
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5550 return 

mm PRINT "EJ" PPM CLP SC PH 
6010 POKE 53280 , 0 : POKE 53281 , 14 
6000 1 : V : = 1 Cl • CCiSUB 5300 

6030 PRINT "raBRTTLE mf SBRITflIN" 
REM RED WHITE BLUE 

r i { .-■ ”■ rr .-i, t!r; 

PfiKE 54277.132 : POKE 
6060 FOP HF=10 TO 45:FOP 
6070 POKE 54273,HF:POKE 54272,Lf 
608O NEXT : NEXT 
6890 FOR TB=1 TO 250:NEXT 
61OO P0KF 54296,0 : P0KE 54276,0 
6110 POKE 53288,15 : RETURN 


603 r 

604> 


54278 ■ 1.94 : POKE 54276,33 
LF=2 TO 1.40 STEP 4 
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SUNNYBROOK FARM 


This simulation program recreates all the problems and hard 
work involved in running a farm, trying to make enough money to 
pay overheads and battling with the weather, unions and 
equipment breakdowns. 

During each year you will have to decide if you will borrow money 
from the bank, replace capital equipment, buy or sell land and 
sheep, irrigate your crops, give in to union demands, which crops 
you will plant and then wait for the weather to influence the size 
and quality of your harvest. 

At the start of the game you, the hard working farmer, are given a 
random age between twenty seven and thirty five. The game 
continues, year by year, until you reach the age of fifty, when you 
retire. 

After the title routine, the screen will display your situation sheet. 
This contains all the information vital to successful farm 
management and it should be read carefully. You begin the game 
with $3000 in the bank, a tractor, one truck, a barn and one farm 
labourer to help you. 

Sunnybrook Farm consists of 350 acres of prime land with 100 
head of sheep. You will be told how much money the bank is 
prepared to lend to you and how much your yearly repayment (if 
any) will be. 

You will then have an opportunity to borrow money from the bank. 
If you have a loan and wish to pay it out early, borrowing a 
negative amount of money from the bank will pay money off your 
loan. 

After you have finished dealing with the bank, you will be advised 
of any items of capital equipment which have broken down and 
need to be replaced. Following this you will then be given the 
chance to buy equipment, land or sheep for the coming year. 
Entering a negative number atthis stage will allowyou tosell land 
or sheep if you wish to. Sheep actually make a good cash crop. 
Be sure to buy sheep when the price is low and sell when the 
price is high! You will find that your sheep also multiply quite 
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rapidly, so make sure that you have enough land to support the 
number of sheep you wish to keep. 

The next step in the game is to decide if you wish to irrigate your 
crops. Irrigation improves your chances of a good harvest. After 
this decision, you must choose which crop you are going to plant. 
They are listed in order of cash yield. 

The weather then plays its part in the game. You must sit quietly 
in front of your computer and watch the rainfall readout. 

The Farm Labourers’ Union is the next problem to confront you. 
It is always trying to get a better deal for its members. The 
relevant information will be displayed on the screen and you 
must decide your course of action. It is not a good idea to start 
giving in to union demands too early in the game. 

Following this the computer works out the amount of money you 
have made for the year. The computer then subtracts the 
labourers’ wages, loan repayments and general maintenance 
costs before going on to the next year in the life of Sunnybrook 
Farm. 

The game ends when you reach fifty or if you happen to go 
bankrupt at any stage of the game. 

Lines 20 to 130 control the running of the program. They call up 
the various routines as they are needed. Line 20 sends the 
program to the initialisation routine which sets up all the starting 
values for the game. The variable CS in line 5050 is the starting 
price of each head of sheep. Lines 5060 and 5070 set up the 
cursor strings which are used for positioning PRINT statements 
on the screen. Line 5080 sets up the values for the sound 
generator. 

The GOSUB in line 30 calls up the title routine which, through a 
FOR/NEXT loop runs the title down the screen. The next GOSUB, 
in line 40, PRINTS out the statement of your circumstances. 

The banking routine runs from lines 420 to 480 and is called up 
by the GOSUB in line 50. Lines 510 to 550 work out the interest 
rate and your repayments. The borrowed money is then added to 
the amount of money you have in the bank (variable MB). 
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The next routine checks to see if you need to replace any capital 
equipment. The breakdowns occur in lines 2670 to 2780. These 
items are then replaced by lines 590 to 750. The cost of 
replacement is automatically deducted from your bank account. 

The routine from line 760 to 1150 provides the buying and selling 
functions of the game. This routine is quite straightforward and a 
careful read through will show you how it works. 

The next routine allows you to irrigate your land. Following this 
you are shown how much land is required to support the number 
of sheep you have and how much is available *: crops. You then 
choose which crop you wish to plant. This routine makes use of 
an exhaustion level (EL) which affects your harvest return and 
makes sure that soorer or later you must leave the landfallowfor 
a year to recover. 

The rainfall is worked out and displayed by the routine in lines 
1470 to 1820. This routine (called up by line 100), has a direct 
bearing on your yearly return. 

GOSUB 1830 in line 110 is the routine in which the Farm 
Labourers’ Union tries to win its members a pay rise. You can 
agree to meet its demands or risk a strike which will affect your 
harvest return. The choice is yours. 

The amount of money you have earned for the year is worked out 
by the routine called up by line 120. Your actual return is worked 
out by the calculation in line 2190. This sum takes into account all 
the relevant factors involved. 

After RETURNing from this routine, the program drops down to 
line 2350 where the year is rounded off with several things 
happening. First of all, the increase in your flock of sheep is 
worked out, the program then checks to see if you have enough 
land to support this many sheep and makes the necessary 
adjustments. The price fluctuations for your sheep are also 
worked out. 

The next section, to line 2830, works out if your farm has suffered 
from any of a wide range of possible disasters during the year. 

Lines 2840 to 2890 firstly increase your age by one year, (FA is 
farmer’s age), then check to see if you have reached retirement 
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age. If you have, we then go down into the end routine where you 
are told just how well you have done as a farmer. 

If you are still under fifty, the program makes sure you haven’t 
gone bankrupt and then returns to the start of the main program 
for another year at Sunnybrook Farm. 

We haven’t given away all the secrets of this program so be 
careful as you are farming and most of all, enjoy playing the game. 
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UB 5450: 

GOSU 

B 

200 

570 

PR 

INT 

"S 

VOU 

R P 

ERAVMENT 

3 — 

T : " 

; RP 

c~ rr 

RE 

M HC 

iME 

CR 

SR 





530 

GO 

SUB 

52 

30 : 

GQS 

UB 5450: 

RETU 

RN 


599 

vv 

=W+ 

■1 : 

IF 

vvc 

2 THEN RETURN 


595 

PR 

INT 

!! 

lA 

II 






600 

IF 

TR= 

= 1 

THE 

N C 

B-CB+1 : G 

iOTO 

63 

0 

610 

PR 

INT: 

PR 

INT 

"V 

OU MUST 

BUV 

ft 

TRACT! 


$5 

000 ) 

j 11 ‘ | 

GOS 

UB 

5300 : GOS 

UB 5 

24 

0 

620 

MB 


•50i 

00 : 

TR= 

1 




630 

IF 

TK= 

■ 1 ' 

THE 

N C 

B=CB+1 ; G 

OTO 

66 

0 

6 4 0 

PR 

INT : 

rp 

INT 

"V 

OU MUST 

BUV 

A 

TRUCK 


$H 

0000 

i) {! 

: GO 

SUB 

530@ : GO 

SUB 

cr •“ 
j cl 

40 

650 

MB 

“MB” 

1 & 

3A0 

: T!< 

~1 




660 

IF 

BN= 

0 

THE! 

N G 

OTA FA Pi 




670 

IF 

AC/ 

.L'i i 

C50i 

0 T 

HEN GOTO 

710 
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630 PRINT ; PRINT "YOU MUST BUILD A BRRH (COST $ 
3000}";GOSUB 5300 : GOSUB 5248 

698 MB=MB~3G00 ; BH=BN+1 : CBCB-1 
coo goto 6?o 

710 IF BB”1 THEN CB=CB+1:GOTO 748 
728 PRINT:PRINT "YOU MUST SINK fl NEW BORE (COST 
$2000}" : GOSUB 5300:GOSUB 5248 

730 MB=MB•-■2808 : CB*CB- 1 ; BB= 1 
748 IF CB-3 THEN PRINT "YOU DON'T NEED TO 
REPLACE ANY CAPITAL" 

745 IF CB~3 THEN PRINT "EQUIPMENT THIS YEAR"- 
GOSUB 5248 

758 CB=8: PRINT " 73" : GOSUB 208: GOSUB 5460: RETURN: 
REM CLR 3CRN 

768 PRINT " BIJOU HAVE $"MB.: "IN THE BANK"'PRINT 
:PRINT:PRINT:REM CLR SCRN 
778 PRINT "JIMHAT WILL YOU BUY ?-V : PRINT 
775 REM YELLOW CYAN 

730 PRINT "1 * HEADER ($15000}" : PRINT 
798 PRINT "2 - HARVESTER ($15008)" : PRINT 
S00 PRINT "3 = LAND ($".: CL; "/ACRE) " : PRINT 
318 PRINT "4 = SHEEP ($";CS;"/HEAD)":PRINT 
SCO PRINT "5 ” HO MORE PURCHASES" 

325 PRINT "MMCA NEGATIVE NUMBER MEANS SELL)”;: 
INPUT C$ 

327 REM DOWN CRSR 


30 

IF 

C$C"1" 

OR C$> " 5 

" then GOTO 7 

68 

40 

IF 

C$=" 1 " 

THEN GOS 

JB 5450 

GOTO 

y y y 

58 

IF 

C$="2" 

THEN GOS 

JB 5458 

GOTO 

95@ 

50 

IF 

C$=" 3 " 

THEN GOS 

JB 5458 

GOTO 

1 01 0 

iT? 

IF 

f- jr— !' d " 

THEN GOS 1 

JB 5458 

GOTO 

1 080 

30 

r r~ 

i r 

C$="5" 

THEN GOS 

IJB 5458 

GOTO 

1150 

30 

IF 

HD” 1 Ti~ 

SEN PRINT 

"Sfr'QU f 

: iLREfiBV HR 


HERDER 1 ":GOSUB 5428 

r.qc pphi wriMF rp-p 

909 IF MBC 15080"THEN PRINT "OVOU DON'T HAVE 
ENOUGH MONEY!" : GOSUB 5428 

910 IF HD --l OR MBC 15800 THEN GOSUB 5220:GOSUB 
5458:GOTO 760 
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928 ! 

...j jv- | ; 

*11 tJ 

! i.D 

~MB-1' 

5000 






930 PRINT 

i! ; 

$ynij ! 

HAVE PURCHASED A 

HEADER 

n 


335 ppm hi 

riMF PR SI 







y 4 i-j i 

30 SUB 

cr 

■J 

^vy • iji 

39! m 5i 

458 : GOTO 76 

0 




958 

IF HV 

= 1 

THEN 

PRINT 

"S8 YOU alre 

:ady 

HR 1 

VE A 



HfiRVE 

STEP ! 11 • 

GOSUB 

5420 





968 

IF MB 

*| 

5003 

TMFH P 

R’INT n ‘Sfr’OU 

DON 

"T 

PI R V P 



ENQIJG 

H 

MONEY 

I":GOSUB 5420 





q*7 f! 

IF HV 

_-j 

. .1 

OR M 

BCL500 

10 THEN GOSUB 5; 

220 

: 003UB 



5450 : 

GO 

TO 76 

0 






938 < 

HV=i : 

«.,*! T» 

fir* 

=MB-1 

5000 






yQfi i 

PRINT 

n 

jSjr'QIJ 

HAVE P 

'URCHASED A 

HAR' 

‘,‘ES 

TER" 


1 Fspifl 

GQSU 

E 

5220 : 

GOSUB 

0450 : GOTO 7 

'68 




101.0 

PR IN 

T 

" snow 

MR MV 

ACRES HILL 

YOU 

PU 

ROHASE 

li • 

1820 

INPU 

T 

PC; : T P 

rs<:@ 

RND RES ( RS ) 

>nr 

THEN GOT 

o 


760 









i 9 30 

IF A 

8* 

COMB 

THEN 

GOSUB 5450 : 

PR I! 

■.it 

"SJt'OU 

CAN 


0 NL..V 

B 

UY";INT<MB/ 

'CD ; "ACRES" 





1.040 

IF R 

8* 

COMB 

THEN 

GOSUB 5420 

0031 

UB 

5220 : 



G08U 

B 

5450 : 

GOTO 7 

'60 





1 0H0 

RC=R 

:C + fl3 : MB 

=MB-<f 

iRifeCS.. ’■.* : GOSUI 

i 54 

58 



1055 

IF R 

i o 

:e the 

H PR I!'- 

if "Sfr'OU HA', 

’E S 

OLD 

n ; RBS ( 

RS > 


; “fif 

IRE 

-3" : GOTO 1070 





1069 

pp T k| 

*T* 

;^f T '0|j 

HAVE 

PURCHASED" .: 

RS ; 

n flC 

RES" 


1070 

G03U 

P 

522.0 : 

GOSUB 

5450:GOTO 760 




1 080 

PP j N 

T 

"SHOW 

MANY 

SHEEP WILL 

YOU 

PURCHASE 

I? • 

1085 

REM 

HOME OR 

SR 






1090 

INPUT 

88 : IF 

SS<0 

AND ABS<SS) 

* >SH 

THEN GOTO 

i 100 

I F r 3 

S* 

CSTMB 

THEN 

GOSUB 5450: 

PR IHT 

n say ou 

CAN 


ONLY 

! T 

r 

!IJV" .: I NT (MB/ 

'CS); "SHEEP" 





1110 

i IF S 

;3:t 

>;C8 >M3 

! THEN 

GOSUB 5420: 

GO 3 

UB 

5220 : 



GO SI 

IB 

5450 : 

GOTO 760 





1120 

3H=S 

:H+ 

■38 : MB 

■=mb. C $ 

5S#CS> : GOSUI 

5 54 

50 



1125 

T f S 

’ C' /*" 

!0 THEN PRINT "SNOU HfiV 

,»£ C; 

OLD 

i"RBS( 

ss > 


; "Si- 

CEP 11 : GC 

)TO 11‘ 

40 





1130 

i print 

" ‘sJt'OU 

! HAVE 

PURCHASED" J 

r-r • 

"SHEEP" 


1140 

i gosl 

IB 

cr V J/j ■ 

GOSUB 

5450 : GOTO 760 




1 1 3“ 

i PRINT 

"3j ,! : R 

ETURN 






1155 

i REM 

CL 

.R SCR 

N 






1160 

j "7 • 

I ,• • 

Y~ 

:6 ; COS 

UB 52C 

30 
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i 178 

PRINT " 

vou 

HAVE T" ;MB;"IN THE BANK" 

11 SO 

GOSUB 0 

. ' • <--1- i- i 

:X-4:V=10:GOSUB 5200 

i 190 

PRINT " 

NIL 

VnN TPRr8ATF V8UP I ANfi V/N 11 

1288 

: 1 0 : V" 

1 1 

GOSUB 5200 

12 i 0 

p p T j-. j T 1! 

( f; r 

0T PPP Pppp? " ; 

1228 

Tj-.JpjiT 

IT 



IF WIf < 

•••., 1 !1 , 

” AND WI$<>"H" THEN GOTO 1168 

1248 

IF \11P- 

?!:.!! 1 
1 •{ 

THEN TB=8 : TP=1 

1 

IF U I 

111 Ml 

T 

THEN IB=1■IP-1.3:MB=MB~<AC*2> 

*5 #, 0 y‘‘ 

ijM r\> 1J H Fj 

248 

: PR I NT " 2F : GOSUB 208 : RET! JRN 

1 P 7* 1 P 

GOSUB 7 

460 

: PRINT "O' 

i 

REM CLP 

0f 

Pkj 

1 

SI J NT •' 

C; ).-| 

p'*i : P! :n:: !~i f* C; | 

1yyu 

r'p | r-i i 

VOL 

HAVE" ; AG : "ACRES" : PRINT 

1308 

PRINT » 

VOL 

R";SH " SHEEP HEED ” SL ;" ACRES ": 


PRINT " 

EOF 

GRAZING" : PRINT 

1318 

PRINT " 

wrr l 

U HAVE" ; P!.; "ACRES' AVAILABLE TO" 


■ PRINT 

" pi 

ANT S' OUR CROPk" ' PRINT 

1315 

REM vn 

LOW 

■-VAN 

1320 

p p T *•. j T 1 f 

j j-! j'" 

EXHAUSTION LEVEL OF VOUR LAND IS 


; EL 

* 11 v 

r (i 

” : PRINT 

1 003 

PRINT " 

NIL 

L VOU PLANT ' : PRINT 

134G 

PRINT " 

1 = 

BARLEV " 

1 850 

PRINT " 

2 = 

WHEAT " 

I860 

PRINT !i 

3 -~ 

PEAS " 

1378 

PRINT " 

4 = 

FA! ! ClUl" : PRINT 

1388 

PRINT 

WHI 

CH CROP WILL VOU PLANT"; 

1398 

INPUT P 

T 


1 400 

IF PTO> 

»i •{ II 

AND R-r>"4" THFN 80 TO 1270 

1418 

IF EL>9 

9 f! 

INB PTO"3" AND PTO"4" THEN PRINT 


■PRINT 

Ill ! i*T 
T L 

i!JR LAND IS EXHAUSTED" 

1420 

IF EL.>3: 

5 R! 

HD PtO"3" AND PTO " 4 " THEN GOSUB 


5420 ■ GO 

SUB 

S 4 U ■ U U T U 1 7 U 


1 '4 3 0 

IF P 

T="1" THEN C 

0T0 

4000 


1440 

IF P 

» V " THEN L 

QTO 

4848 


1458 

TR p 

T : ~" 3" THEN G 

0T0 

4898 


i 400 

IF P 

T=”4" THEN G 

1010 

4128 


1470 

POKE 

53281,6 : F'OK 

E 5:“ 

12 00,5 : 0031 

JB 5340 

1475 

N=6 : 

V=5:GOSUB 52 

00 : F 

"PINT " SS73I 

AM WORKING 


OUT THE RFlIHFFlLL" : GOSUB 5228 
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1477 

REr 


REV 

ON 

VFI 

! nw 



1480 

!44~ 

’0 

•' FOR 

y 


TO 

40 


1438 

1 trr.r, 

IF 

l ir*. 

R 

"t- 

ND C1 

l r 1*. 1 

*‘i " :• 

5 THEN 

WW-Wm 

. 1 

1 juU 

1510 

1 'i r 

FOR 

! 

i p. 

TO 

99 




1520 

POL 


j 90 

4-fV 

l 

i : , J 

£0 



1 r ~ o r-i 

p rsk 

E 

561 

7 6 

, ,H .1 

1 pi 



1540 

Mp*;, 

T 

\ M , 1 






1558 

FOR 


W =0 

TO 

CT 

• J 




1560 

POK 

E 

166 

4+ ( 

40* 

i. n f| i \ 

160 


1570 

POk 

E 

559 

36+ 

< 46 

*vv 

•' .■ 10 


158G 

hi:./-, 

T 

VV 






1590 

FOR 



T 0 

m 




1 COG 

r*- : 9 !••*' 

P 

1 79 

4+y 

i 

02 



1610 

pok 

E 

560 

56+' 

.; j ( .! 

1 



162G 

GOS 

U; 

p 57 

59 





1630 

HEM 

T 

l ! ! l , ' 






1640 

PR I 

N‘ 

r : PR 

I NT 

: pp 

I NT 

: PRINT 

TAB 


R A1 

NFRLL 

m ,f 

; ww 

;" INCHES" 


1650 

GOS 

u 

B 52 

20 : i 

308 

UB ' 

5460 


1660 

POK 

a 

rr 

. j .j;: -j:!. 

81..; 

3 : POKE 

53280, 

£ 


i 67S 


167' 


PRINT 

REM CLR SCRN 
1680 PRINT "THIS HEARS RAINFALL ="; MW" INCHES*." 
•PRINT-PRINT 


1685 REM CVfiN 

1690 IF MW-C10 THEN PRINT "R SRVRGE DROUGHT Ml" 
: PRINT : PRINT:GOSUE 5420 
1708 IF WNC10 THEN DI = I NT (RND < 1#50 +1 
1710 IF NH710 THEN PRINT "CROP LOSS =";100-DI; 
"7" : GOSUE: 5210: RETURN 

1720 IF WHO 9 THEN PRINT "R DROIIGHT i i":PRINT: 
PRINT:GOSUE 5420 

1730 IF NM-CIS THEN DI=58+INT(RND'r r:<*50-> 

1748 IF WWC19 THEN PRINT "CROP LOSS -";100-DI; 
"" : GOSUE 5210: RETURN 

1750 IF WWC23 THEN PRINT "PERFECT WEATHER" : 

PR I NT •• PR I NT: GOSUE 5300 
1760 IF WWC23 THEN D1=100:GOSUE 5220:RETURN 
1770 IF N!.'K31 THEN PRINT "DAMAGING FLOODS'ii": 
PRINT:PRINT:GOSUE 5420 
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1780 IF WI-K31 THEN BI =50+1 NT < RND < 1 > $58 > 

1796 IF UN <31 THEN PRINT "CROP LOSS =" ; 100-DI; 

" v ":GOSUB 5218 : RETURN 

1880 PRINT "HORRENDOUS FI CODING i ' '" : PRINT : PRINT 
1810 DT=»INT<RNDa>*50> + l 

1828 PRINT "CROP LOSS =";1 00 -BI; "X" : GOSUB 5210 : 
RETURN 

1838 PRINT :PRINT 7RB<2> "SMrOUR FRRM HfiNBS 
BEMflNB R PAV INCRERSE" 

1840 IF UM~1 THEN GOTO 1910 
1850 WI = INT<28$RND<1> > +1 

I860 PRINT TAB<7> "SMTHEV BEMflNB fl"NI "’{ PflV 
RISE":PRINT-PRINT 
1870 SC= I NT < 100:4:RNB <; J.)) + j. 

1.880 PRINT TAB<4> "THERE IS A":SC; "8 CHANCE THAT 
THEV" 

1896 PR TNT TAB '■ 4 "NTH STRIPE TP TT ISN'T 
ORRNTEB" 

1900 IF UM=0 THEN GOTO 1990 
191G GOSUB 5220 

1920 PRINT TAB<2> "BECAUSE VOU REFUSED THEIR 
CLAIM LAST" 

1930 PRINT TAB < 2> "VEAP THE UNIONS HAVE 
INCREASED THEIR" 

1948 PRINT TRB<2) "CLAIM" 

1350 WI=INT<WI#1.5)+3 
i. 968 SC -1 NT < SC$2 > +5 

1378 PRINT TAB62) "THE UNIONS NON DEMAND fl": 

PRINT TAB<2? WI; "V. PAV RISE" 

1980 PRINT:PRINT "THE CHANCE OF THEM STRIKING 

yen • r- ■ 11 v i i 

1390 PRINT : PRINT TAB(4) "HILL VOU PAV THE 
INCREASE? <V/N>" 

2000 GET AT IF A$~"" THEN GOTO 2000 

20! 0 I f AT--" V" THEN PR* I NT < PR$M I /1 @8 > +PR : IJM=8 : 

SK~1:UI=0:SC=0 : GOTO 2110 
2028 IF ATO"N" THEN GOTO 1930 
2030 PRINT "23" : REM CL.R SCREEN 
2040 PRINT TAB(l) "ISINTHE UNION LEADERS ARE IN 
CONSULTATION"-GOSUB 5220 
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REM DOWN CRSR 

UB=IHT<100*RNDa>> + l 

IF UE>SC THEM PRINT:PRINT TAB'2> "THE 

UNION HRS DECIDE!) NOT TO STRIKE" 


2QS5 


2090 

2100 

2110 


2135 
2140 
1 50 


IF UB3SC THEN SK~1 : IF UB>SC THEN GOTO 2110 
IF I IB>Sf: THEN UM=M:G0T0 2110 
PRINT:PRINT TRE<5> "VOUR FARM HANDS ARE ON 
STRIKE!!" : GGSUB 5230 

PRINT:PRINT TfiE(l) "VOUR HARVEST RETURN 

IS REDUCED BY 30 %" 

ljri-0 : SC-“0 : WI-0 : SK=. 7 

GOSUD 5460 

RETURN 

PRINT "21" 

REM CLP SCRN 

IF HD~0 THEN DF=1 

IF HD=1 THEN BF=1.5 

IF HV=0 THEN VI*1 

IF HV~1 THEN VI=1.5 

PRINT TAB(2) "I AM WORKING OUT VOUR 

HARVEST RETURN":GGSUB 5220 

I N= I NT < BP#WP*PP#FP#D I188*BF*V I *BT*SK*PL* 

IP*20) 

PRINT"H" 

REM CLP SCRN 

PRINT■PRINT:PRINT TAB<6 > "VOUR HARVEST 
RETURN = IN 

MB=MB+IH : GGSUB 5300 : GGSUB 5220 
PRINT '"1" 

PRINT:PRINT:PRINT "NEW BANK BALANCE =$";MB 
PRINT : PRINT "LESS WAGE COSTS OF % " < PR#L R 
PR I NT: PR I NT " LESS BANK' REPAYMENTS OF $ "; RP‘ 
MB“MB-(PR$LR> - RP 

PRINT : PRINT:PRINT "LEAVES YOU WITH $";MB 

LR=INT < AC/500 > +1 

N= : I NT (. 3&RNB (1 > > +1 

IF ';■■■■= 1 THEN BL=BL+1080 

CL-“ I NT (15#RND i 1 > > # I NT C CL/108 > +CL 

GGSUB 5468 

RETURN 

y,~ I NT (. 504:RND (1 > > v-51 
V"" I NT (X,#SH/100 •' 

SH=SH+V 


2199 


22w0 


2.240 

2.250 

2260 

2270 


2300 

2310 

2320 

2330 

2348 

2350 
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C; Q P P T (•,! T 11 ”| 11 

2335 REM CLP SOPH 

£338 PRINT "Sfr'OUR FLOCK HRS INCREASED BV":V; 
"SHEEP" 

2333 REM HOME CRSR 


•*0 ‘T 1 p "F 

PRINTER 

PINT 

»• you HOW HAVE";SH;“SHEEP" 

•?.$ :;•! (a 

IF PC'*5 

<3H 

THEN SH=RC#5'-PRIH T 

2485 

IF RC*5 

QNLV SL 

=3 h THEN print "yn 1 jR"; pr ; 11 r r. pp3 r r y 

PPORT";SH ; " SHEEP" 

•{ C\ 
c.. -r j. 

f 4 .". F*i 01 ! TO ft 

•“*1 <‘“l ; w !f • 

1 HT ( 60#RMl! (1 > > -20 

242@ 

TP vv-r* 

Ti-iFK 

n FP|i J FH" 

2430 

2440 

PRINT 

THEN 

r$= "RISEN" 

2450 

IF N-0 

THEN 

PRINT "THE VALUE OF VOUR SHEEP 


IS UNCHPHGEB" : GOTO 2478 

£430 PRINT "THE VALUE OF HOUR SHEEP HRS":PRINT . 

pf; " BV";RBS<X>; "X" 

2478 OOSUB 5389 : GOSUB 5248 
2483 C 3 = IH T C C S $ X /18 8 '•> + c; 


2438 

pp i j,jj 

" 73" • R=R • V” 10 : OOSUB 0280 

2435 

REM CL 

R SCRM 

2588 

V :r: T >-.j T 

50*RH‘D (l > -f i > -1 HT (FiC/48 > 

351 P 

IF H< 1. 

THEM 

2520 

IF X- 1 

THEN GOTO 2618 

2520 

IF X : ~3 

THEN GOTO 2658 

-n rrr a •••;. 

IF N“3 

THEN GOTO 2630 

2550 

*j* j“J* \ .* .* t- , 

THEN GOTO 2780 

2030 

f r- v.»..... rr 

THEN 207fi 2720 

2578 

IF N~g 

THEN GOTO 2748 

2520 

IF 

THEN 00TO 3768 

2530 

IF X=8 

Pi f‘j T '“‘j '7? 

THEN GOTO 2788 

o • J C-\ 

ci. O k) 
2b J. y 

L. J \ J \ 5 J 

y =t ht< 

rj.» k! 

20&RND (1 > -i-1 > 

3P20 

V=INT( 

H#SHX100) 

2b 30 

PP J ht 

1 M y 2 T E R V BIS E R S E !< ILL 3 1! 

d b 4 y 

3H=SH- 

V:GOTO 2810 

2650 

N--IHT ( 

18$RNI) (. 1 > > + l 

2668 

PRINT 

" EL IGHT BESTROVS"; X; " ••;! 


: GOSUB 

5230 : PRINT"2!" 

p i~ p 

PPM P| 

P SOPH 

2670 

BT=BT- 

(' X/180 > : BB~ 1 : GOTO 2818 


2688 PRINT "ONE OF VOUR TRUCKS HRS BROKEN BONN" 
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2698 

2700 

2710 

2720 

2730 




40 


2950 


•-.Qtr^rr 


2860 


2888 

2890 

2980 


2910 

2928 

2925 

2938 

2940 

2958 


TK=TK-1 : G0TO 2818 

PRINT "FI TRACTOR HAS BROKEN DOWN" 

TR=TP-1'GOTO 2819 

PRINT "VOUR BARN HRS BEEN DESTROYED" 

EN=EN.1 GOTO 2810 

PRINT "YOUP HARVESTER HAS BROKEN DOWN" 
HV=HV-1 : GOTO 2810 

PRINT "VOUR HEADER HAS BROKEN DOWN" 
HR=HR-1’GOTO 2810 

PRINT "VOUR IRRIGATION BORE HAS DRIED UP" 

: GOSUB 5240 

DB=8 

GOSUB 5428 
GOTO 2840 

PRINT TAB<1> "LADY LUCK HAS SMILED ON YOU 
THIS YEAR":GOSUB 5340 

GOSUB 5238 : Ffi=FR+l •' BB=BB-1 : IF BBC8 THEN 
BT~1 : BE=0: PRINT "21" 

REM CLEAR SCAN 

IF FA=>50 THEN GOSUB 5380 : X=8 : V=6 : GOSUB 
5280 

IF FA=>58 THEN PRINT "18***5 SPVOU HAVE 
RETIRED*! 3*##" 

REM REV ON REV OFF REV ON REV OFF REV ON 

IF FA=>50 THEN GOTO 2980 

IF MB+BLC0 THEN GOSUB 5420 : X=8 : Y=6 : GOSUB 

5288 

IF MB+BL60 THEN PRINT " SNOU ARE 

BANKRUPT®- mm" 

IF MB+BLC0 THEN GOTO 2958 
GOTO 48 

FS=MB+<RC*CL> + <TR*2000> + < TK*2000> + 

(BN* 1808 > + (HR*5008 > 4- (HV*5G08 >+< SH*CS > 
GOSUB 5228 

PRINT TAB<S> "MWYOUR ASSETS ARE WORTH $" 
FS 


REM DOWN CRSR 
T = I NT <FS/1 08008 ) 

GOSUB 5238 

IF J=0 THEN PRINT:PRINT TAB < 2'? "IT'S THE 
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POOR HOUSE FOR VOU MV FRIEND" 

t cr r -r i THEN PR I HI : PRINT TOB 4 > "VOU ORE fi 

pnnp struggling former" 

297© IF ,T=1 THEN PRINT: PRINT TOB(ll) "THERE 
TSN"'T MUCH TO" 

2930 Tp t --1 THEN PRINT: PRINT T0B(9> "SHOW FOR 
RL.L THOSE VEOP.S" 

2990 IF ,7=2 THEN PRINT: PRINT T0B<8> "VOU ORE ON 
OVERUSE FORMER" 

ir T--R THEN PRINT : PRINT TOB < 10) 

"RETIREMENT WILL HOT BE" 

SOlO IF J~2 THEN PRINT-PRINT TOB<14) 
"UNCOMFORTABLE" 

3020 IF ,T“3 THEN PRINT : PRINT TREKS) "VOU ORE 0 
GOOD FORMER" 


3030 

IF J=3 THEN PRINT 


LIVE IN COMFORT" 

3940 

IF J=3 THEN PRINT 


VOUR RETIREMENT" 

3059 

IE J<>4 THEN GOTO 

3060 

FOR ;•••■ = 1 TO 6 

3870 

PRINT:PRINT J0EK5: 


FORMER!!" 

3080 

PRINT:GOSUB 5300 

3090 

NEXT X 

3100 

GOTO 3100 

4000 

PRINT'PRINT "VOU 1 


GOSUB 5238 

40 1 0 

BP=RHIK 1>#5/10+1 

4920? 

|,JP=1 : PR” 1 : FP= 1 

4080 

R! =FL +15 : PRINT "T 

4035 

REM CLP SCRH 

404O 

PRINT ; PRINT "VOU 1 


5238 

4050 

WP'-RHE < 1) $3/1.0+1 

4060 

BP=1:PP=i:FF-l 

4070 

EL=EL+10 : PRINT "El 1 

4080 

PRINT:PRINT "VOU 1 


5230 
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♦**? ?T*j ,#M t !*/( 

PP 


81 /10-f 1 

4100 


=1 : WP=1 

: FP~1 

4118 

pp 

1NT "T 

: ppTURN 

41 15 

P£ 

M CLR 8 

CRN 

4120 

pp 

I NT • PP I 

NT "VOLTi 


cr~ 

•JcL 

30 



FALLOW" : GOSUE 


4130 

FP= 

0 : El 



4140 

PR I 

|., j T '■’ '*“! ! ! • {“' 

FT! jR 

N 

5000 

PPM 

*** VRF 

IRBL 

ES 

5010 

MB- 

2000 :TP" 

1 : p K 

.1 • 1" T«.-1 

Rppp 

T!<:r. 

j :00-350 

: 

1 00 : T.]T- 1 

POPP 

fi ~ 

1 00 : PR-::::2 

i : 

2| R !/; y] I'"! 

RR di "4 

FR'-:: 

T HT -•* pK.ITi 

i > m 

“7 

5050 

{ 

1 : PR::--TNT 

1 2* 

p|-.! 2 j:* 1 -;i •) -f 2 

5860 




REM HOME RIGHT 


CURSOR$28 

5070 V $ 1 ’ " : R E M Ii 0 WH 

CUR80R*24 

5888 VO-54296 : HD-54277•SR*54278 : NF-54276 : HE- 
54273 : LE-54272 : HP-54275 ; LP-54274 


5020! 

PPIPT i! 

pp : RET URL 

: PPM 

CLR 3CRN 

5200 

PRINT L 

EFT:|:CX$ . 

>L.EF 

7$( VT V>::RETURN 

52:!.0 

FOR TD- 

1 TO 1000 

■ NEXT 

TD 

5220 

FOR TB= 

1 TO 1000 

: NEXT 

TD 

5238 

FOR TB~ 

1 TO 508' 

NEXT 

TD 

524 0 

FOR TIT- 

1 TO 400 : 

NEXT 

TD 

5250 

FOR TD- 

1 JO 100: 

PENT 

TD 

5300 

RETURN 
POKE VO 

,15 : POKE 

or?, i o 

: poke SR.. 132 : POKE 

5310 

WF. 33 
POKE HE 

, T ! 1T r’ Pi/!P 

HD < 1 > 

> +5:poke LF,INT(50*END 


(1) > +1 0 

: FOR TB-l 

TO 51 

3: NEXT 

5:220 

•*t~ - 1 - ~r* -r* , .i 

1 ! = ! 1 + 1 

: IF TT>2 

THEN 

TT=0:POKE WF.0:POKE 


RD, 

0 : F 

Oh 

;e S 

R■O'RETURN 

5325 PCI- 

E !- 

IF. 

0 : F 

OKE LF.. O 

5330 EOF 

TI 

la: 

Tf 

25 : NEXT : Of 

5340 POL 

•;F 4 

0 

15 • 

POKE RD. 13 

65 : 

POh 

:e 

HP, 

0: POKE LP.N 


5250 POKE HE.. 8 : POKE LF . 23 ■' FOR TB=1 

TD 

5368 POKE VO,0 ' POKE HE, 0 : POKE RD,0 
5370 RETURN 


1 44:POKE WF, 
TO 30O : NEXT 
POKE SR,8 
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! =v4:~;0 

5440 

5450 

ir ..] nr nr 

5450 

5480 

5498 

5508 

5585 

5510 

is* »sr -*i |7j 
nr izT -y rr 

5530 

nr rr r.j 

5550 

5540 


POKE VO, 15 : POKE file 18: POKE SR.-34: POKE MF. I 
FOR H1 ~ 1 8 TO 100 STEP 1.0: FOR u'"10" T0 100 
STEP 10 

POPE HE, Hi : POKE LF.4....1 

NEXT : HE XT : POKE HE, 0 : POKE VO, O : POKE FlD, 0 : 
POKE SR,0:RETURN 

POI-^E VO 15 : POKE Fill, 1 Q ; POKE SR, 194 : POKE 
WE, 33 

POKE HE, 4'POKE LF,73 :.GOSUB 5243 

POKE VO , 0: POKE WF, 0 : POKE SR, 0 : POKE rti, g: 

RETURN 

PRINT "yT 1 : : FOR KK~U TO 4.g : pRTNT " 'NEXT 
KK:RETURN 

pp!-.i ;..ini'.ip 

X“9'V=0 "GOSUE 5200:PRINT "gnxT RHV KEV TO 
CONTIHUE" 

GET Bf 

IF BT-"" THEN GOTO 5470 
RETURN 

PRINT "IT POKE 53280,13:POKE 53281,4 
REM CLP SEEN 

POKE VO, i 5 POKE FIB 17 : POKE SR . 32 • POKE \,\f , 1 
pgp TV ~1 TO 24 

PR I NT TRB (IX > " Mi^tSUHHVBROOK FORM " 

REM BONN CRSR REV OH VELLOW 

H1 = I NT'" 20*RNB < 1) + 1 60 > :!.... 1 = I NT (20*RNB < 1 > +140 

POKE HE.HI'POKE LF,LI : FOR TD = 1 TO 15:NEXT 

POKE HE, 0: POKE L.F,0 

NEXT : PRINT "EJ" : REM Cl p PORN 
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CHALLENGE THE COMPUTER 


3-D Noughts and Crosses 
Statesman 
Unscramble Alien 
Reversi 

Chessboard Nim 
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3-D NOUGHTS AND 
CROSSES 


This program creates a mind-stretching game of Noughts and 
Crosses in three dimensions. As you are playing this game you 
must try to visualise the board in three dimensions. If you don’t, 
you are likely to make mistakes. 

When the program is RUN you will see a title screen displayed, 
accompanied by a quick ascending sound routine. The screen 
will clear when this is finished and the playing board will be 
displayed. This consists of the playing area to the right of the 
screen and the key to the game board on the left of the screen. 
You will need to visualise these boards as if they are stacked on 
top of each other, top, middle and bottom. You are viewing them 
from above. The computer will use crosses as its playing pieces 
and you will play the noughts. In this game we have used the 
letter “O” instead of a zero for the noughts. 

Lines 30 to 35 decide, on a random basis, who is going to have 
the first turn for each game played. When it is your turn the 
computer will prompt you. To place a piece on the board, enter 
the number of the board location you wish to occupy. This 
number is shown in the board key on the left hand side of the 
screen. 

To win the game you must get three of your playing pieces in a 
row, horizontally, vertically or diagonally. This can be on one 
board level, as in ordinary noughts and crosses, oryou can win by 
getting three in a row through the three boards. This can be 
vertically through the board, such as locations 1,10 and 19 or 5, 
14 and 23. Three locations through any of the four diagonal axes 
of the board will also give you a win. For example; 1,14 and 27, or 
9,14 and 19. Please note, a combination of 1,11 and 21 isn’t a 
winning move. All diagonal lines through the cube must occupy 
location 14 on the middle board to win. 

The program will play an infinite number of games and keep track 
of how many games each player has won. When you wish to stop 
playing, press the BREAK key to escape from the program. 
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The lines 190 to 340 print up the board and the key. The actual 
playing area is displayed by printing the character (using CHR$) 
represented by the ASCII code which is held in each location of 
the A array. This value can be the ASCII code of “X”, “O” or a full 
stop, which is used to denote an empty square. 

The computer uses the long routine from lines 1030 to 2430 to 
make its move. This certainly isn’t the most efficient way to 
program this routine. However it was written this way for several 
reasons. This form is very easy to read through and therefore 
easy to debug if a problem occurs. It also keeps the length of the 
lines under the 80 character maximum the Commodore 64 
allows us to use. This avoids any messy bits of code if a line gets 
too long and has to be broken down to fit. Finally it is easy to type 
in this form. For instance, if you type line 1050 and line 1110, you 
can then use the screen editing functions to alter line numbers 
and number values to produce nearly every other line in the 
routine without a lot of repetitive typing. 
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*7> \t 
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PRINT 

THE < 

8 > " 

5 



, CHRf < 

Fl < 

25)). 

I! 

ii • 


CHRf«:a<26 > > ; " " CHRf <Fi<27> > 

PRINT 

RETURN 

R E M f f T T f .4: fl'! $ iijf :■■)> -it ;tj> :f|l : ijij £ $ $ Jj£ $ 'ijv jijj; ^ jijf i|t' $ Jljl: ^ -ilv 
REM WIN CHECK 

IF'fla)=E THEN 448 


if fki: 

=Fl (2 > Fi N D fl < 2 > - • fl (3 

THEN Q“1 

: RETURN 

IF FKi: 

=fl (4 > AND Fl < 4 > =fi (71 

THEN Q=1 

RETURN 

IF Fi ( 1: 

•~fl(5> Find fl(5>=fl<91 

THEN Q=1 

: RETURN 

if fki: 

RETURN 

=fl (10 > fli-ID Fi (1 fl) =fl ( 

IIS) THEN 

Q-l : 
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THEN Q=1: 


430 IF fi <i> =fl ( 1 4) AND fi < 14 >-ft<27 > 
RETURN 


449 IF ft ( 10>=E THEN 433 


a cr 

T ; 7 " «'“j '•* ‘1 .•/* ‘j •[ "•> 

ft HI 1 FK 11 >=FK12> 

THEN 

Q— 1 0 : 

4 

RETURN 

t |- j—j i. {/} j i“*j i. ,j 

FIND ft C 1 3) =fi < 1 6 ) 

THEN 

0=10: 

zi *7 C\ 
u r 1 r.J 

RETURN 

IF fti 19 )-ft( 14 > 

AND ft < 1 4 >=fi( 1 ft! > 

THEN 

Q= 10 : 

498 

RETURN 

IF Fk 19)=E THE 
IF FKi9>=FH20> 

H 528 

AND ft < 20 )=fi < 2 1> 

THEN 

Q= 1 9 : 


RETURN 

IF FK 19) -ft <22) 

ft NT FK22)=FK25> 

THEN 

0=19 : 

nr •: ft 

RETURN 

AND Fi ( 23 ) =Fl < 27 ) 

THEN 

0 = 19 : 

528 

530 

hr | !JKH 

IF FK2)=E THEN 
IF ft ( 2 ) =ft( 5 > ft 

550 

HD ft < 5 )=fi< 8 > THEN Q=2 

: RETURN 

548 

IF ft < 2) =fi (. 1 i ) 

find r< i 1>=FK20> 

THEN i 

~ r~ V * 


550 IF ft' 

:il)=E THEN 

570 


568 IF ft' 

:il)=FK14) F 

iND ft a 1)=R(17) 

THEN Q=ll 

RETUi 

RN 



570 IF ft- 

• 20)=E THEN 

590 


589 IF FF 

20 >=FK 23) F 

IND FK23)=FK2S> 

THEN O=20 


RETURN 


nr cjtTi 

.j Kj 

IF 

H ft 7 

=E THEN 640 
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i i~ 

H (. ft ) 

= fi ( 

I) FIND ft( 

.6 


ft': 

9) 

THEN 0=3 

:RETURN 
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IF 

FK 3 > : 

=R < 

12) AND F 

K 

12 

> ~ 

'ft < 21 > 

THEN 

Q=3 : 


RETURN 
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IF 

FK3> = 

=fl<; 

5) ft HD FK 

rr 

) :r. 

Fi ( 

7) 

THEN 0=3 

:RETURN 


IF 

Dir 

Fi 13)• 

T! IP!-1 

=fi < 

.4) FIND F 

( 

14 


Fi (25 > 

THEN 

Q=3 : 

h> 4 hi 

Kfc. 

IF 

! ! ! h; I 
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■>=E 
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r r* 

l r 

FK 12 

i ::::: j-j 
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Fi 

a 

5) 

=F|. 

:is: 

THEN 
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RETURN 
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T p 

H*■. i 2 

>=fl< 
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fi 

a 

4) 

=ft' 

: ig: 

THEN 

0=12: 


RE 

TURN 
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IF 

FK21: 

■> =E 

THEN 700 








CO ft 

ft 1^,1 

T l :r 

fi < 2 1: 

:>=Ri< 

724) AND 

Fi 

( 2 

4 > 

=fl’ 

***!•’*? * 

:■ THEN 

0=21 : 


RETURN 
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7 r p i 

=fi < 23) AND ft <23! 

•~ft<25> THEN 

Q=21 : 

RETURN 
! F f! (4 > 

7 p r: ,•* "i -j 

=E THEN 73@ 

= ft < 5) Fi N B ft < 5)= fi 

35) THEN Q=4 : 

RETURN 

IF ft < 4 > 

PCTI iPI- i 

•"Fi < 13 > ftHB ft < 13 > : 

=fi<22> 

THEN G 

=4 : 

IF !“!< 13 

>=E THEN 750 
>=fi< 14> ft HD fi<14 

= ft < 15 

THEN 

Q= 13 : 

PP'T! IPKS 

-~pr J MEN 7 7 Pi 


then 

n■ 

RETURN 

IF R 

=E THEN 730 

=fl < 15 > AND ft < 15 > • 

=Fi < 24 > 

THEN G 


RETURN 
IF Fi<5> 
IF" F! <-5 ) 

-sr TjjpM o-sp 

u 1 ! ! L. i •» \ j i •: J 

=fKi4> AND A<14> = 

~R<23> THEN’G 

l:r~5 : 


RETURN 


IF ft<7> =E THEN 858 

IF ft<7:.'-"A<3> AND ft<3>-ft 

< 9 > THE 

IN 0=7: RETU 

IF ft < 7 > -"ft < 16) AND fi < 1 6 > 

-::R ( PE > 

THEN Q=7: 

RETURN 

IF R<7>=ft<14> FIND A< 14> 

=ft < 21 ) 

THEN Q=7: 

RETURN 

IF ft < 17 > = E T H E N 8 7 8 

IF R<i6>=ft<17> AND Ft<17 

? =fi <181 

THEN Q=16 

RETURN 

IF FK25>=E THEN 399 

•* 7 ~~r •. 

THEN Q=25 

RETURN 

IF Fi<3) =E THEN 910 

IF ft<8>-ft<17> AND ft<17> : 

j7« •• •*". •. 

THEN Q=3: 

RETURN 

IF fi<9>=E THEN 340 

IF h < y ) =h < 1 y > hN.D h < l y) : 

_ p ^ .. 

THEN Q=ft: 

RETURN 

l i"' H y '■ — h • 14 .- 1 Hr -iT ■ ■•j c 14 '* 

=Fi < 13 > 

THEN 0=9: 

RETURN 

RETURN 

P ["!’ 1 $ 7 -mV 7 $ $ p $ 4t $ -A! 'fy -A; ^$ 

4* -I*?- -»|i- 4' 4:4’: •¥. 4: 4: $ 

REM ACCEPT PLAVER MOVE 

PRINT "HOUR M0VE : INPUT V 
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•j : 7 W: 7: :*j»; *Jf J : :i*i :«j ! : ‘:¥: :4*: $ : | j ,: 7: :«j ! ! $7 : $ $ :«}>: : 
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R12 > = fi ( 3) fl MI) fl < 2 > < > E 
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1870 

IF 

fl(4>=fl<7> flNB fl<4><>E 
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1 080 

i S" 

fl<5DFK9> AND FK5>OE 

THEM RETURN 

1 yLI 

IF 
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1 1 C : \C] 
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1!- 
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:p>E THEN RETURN 
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1 i 26 

IF 
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THFM RFTi !RM 
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IF 

Fl (6 > = fl < 9 > fl M B fl < 6 > < > E 

THEM RETURN 

1140 

IF 

fl ‘i 5 ') ~ fl •' 7) fl N B fl (5 > C > E 

THEM RETURN 

l i 80 

IF 

fi ( 12 > -fi (21) fiN D fi1 2 • 

■~yr THEM RETURN 

i i 30 


fl<14>=fK25> ft MB ft < 14 > • 

OE then return 

1170 

M::::: 

1 IF fl(4>OE THEN 1210 


1180 

t r~ 

i. f 

fl < 1 > =fl C7 > AND FK l>OE 

THEM RETURN 

1190 

IF 

fl (. 5 > = fl < 6 > fl H B fl < 3 > < > E 

THEN RETURN 

1200 

IF 

R<13>=fK22> RND ft< 13 7 

OE THEM RETURN 

1210 

M~: 

5 IF fl<5>OE THEM 1270 


X 220 

T rr 

i J 

FK1 > =fi<9> AMD fi(l)OE 

THEN RETURN 

1230 

: P 

fl < 2 > ™ fl < 3 ) fl !■ 1B fl ( 2 > < > E 

THEM RETURN 

•1 *0 i"‘; 

T r- 

j. •; 

Fi 13 y ~fl < 7) flMB fl F 3 y OF 

THEN RETURN 

1230 

T 1-* 
1 !"' 

0 !** 4 ) = R < s y fl m b fl < 4 y c > f 

THEN RETURN 

1260 

IF 

FK14 > =ft <23 > flMB fi i 14- > • 

OE THEM RETURN 

1270 

j * ! 1 :r::; 

D IF fl< 6 ')OE THEM 1310 


1280 

IF 

fl < 4 > = fl < 5 > fl H B fl < 4 > < > E 

THEN RETURN 

•i vCjM 

IF 

FK 3>“fl<9> flMB ft(3)OE 

THEN PET! !RH 

1 200 

i, 1 

fl <; 15 > -p ( 2 4> 9 HB fl 1 5 } • 

OE THEM RETURN 

1 7 1 fi 
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FK i v~0(4) r;-jTi fl(i ><>r 

THEN RETURN 
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THEN RETURN 
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IF 
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THEN RETURN 
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ro 
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IF 
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OE THEN RETURN 
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M= 
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) O-i 

1690 

IF 

FK 

14 

>=R 

< 7) 

AND F 

<i 

4 > C 

1700 

M“ 

16- 

IF 

FK 

16) 

OE THEN 

17 

1710 

IF 

FK 

10 

>=R 

<13 
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VC 


THEN RETURN 
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26'yO’E THEN RETURN 
03>O-E THEN RETURN 
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IF RIQ>=B THEN PRINT ”1 MIN I MIN! ! ! " : 

Mc : =riS+1 

TR ”• Cr;' TS ;”n PRINT "VRU WIN" •'HS=HS+1 
ppt M t 
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.D ri 

C< M X" > :REM 

COMFU 

L- : • H o 

01":RFM 

HI IMflN 
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REM 

3080 

3085 

3090 


3100 

3110 


3120 

3130 

3140 

3150 

3180 

3200 



3310 


3320 


SHIFT CLR HOME 2 DOWN CRSR 
V0=54296:HD-54277:SR=54278:WF=54276: 
HF=54273:LF=54272 
HR-54275:LP=54274 

POKE VO,15:POKE RD,15:POKE SR,132:POKE HP 

15:POKE LP,200:POKE WF,65 

H1=10:L1=10 

POKE HF,Hi:POKE LF,L1 : FOR TD=1 TO 28 : NEXT 
TD 

Hl=Hl+5 : L1=L1+10 
IF HI<100 THEN GOTO 3110 
POKE VO,0:POKE WF,8 : H1=8:L1=8 
FOR TB-1 TO 1800:NEXT TD 
RETURN 

POKE VO,15:POKE RD,17:POKE SR,64:POKE. WF. 
65 

POKE HP,10:POKE LP,1 
POKE HF,7 : POKE LF,33 
FOR TD~1 TO 350:NEXT JD 
POKE VO,0:POKE WF,0 
RETURN 

POKE VO,15 ; poke RD,18:POKE SR,132 : POKE 
WF,65:POKE HP,15:POKE LP,200 
POKE HF,25:POKE LF,177:FOP TB=1 TO 750: 
NEXT TD 

POKE VO, 0: POKE |,JF, g : RETIIRN 
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STATESMAN 


Statesman is a boardgame distantly related to checkers. It is 
played on a nine by eight board and pieces are captured, not 
by jumping over them as in checkers, but by landing on them. 
The pieces move diagonally as in checkers but can move both 
forward and back on the board. Thus it is possible to retreat 
when under attack. 

The computer has the first move. It will then ask “MOVE 
FROM”. To move your piece enter the coordinates of the 
piece beginning with the number down the side of the board, 
followed by a comma and then the number across the board. 
For instance if you wished to move the piece at the far right of 
your front row you would enter 6,8. After you have done this 
the computer will ask “MOVE TO”. Simply enter the location of 
the square you wish to move to in exactly the same way. 

Statesman uses DATA statements to set up the board and 
playing pieces. This information is transferred to the screen by 
the routine beginning at line 500. Lines 140 to 170 set up an 
array and then READ the DATA statements into the elements 
of the array. 

The routine between lines 330 and 470 work out the 
computer’s move checking the squares around each piece for 
a possible capture and then a safe move if a capture isn’t 
possible. 


18 REM STATESMAN 
15 REM IS Oil 0 KEY 


17 


K.t.'r 


20 PRINT "IT': REM CLEAR 
25 POKE 53280, 4- POKE 5: 
30 DATA "11234567831" 
40 DATA " " 

5 0 I) A T A ' 1 2 1® $• 1® 1# 12'' 


69 DATA 

70 DATA 
80 DATA 
88 DATA 


"3tin! ’MM3" 
"41 1 1®! 14” 
!l 5 1 1: 1 l " 
11 61# 16 1 1 


IS ON A KEY USE 
USE COMMODORE KEY 
SCREEN 


SHIFT 
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108 

data " " 


110 

data "smMMmm" 


128 

DATA "11234567891" 


130 

HS=0 ; CS=0 


148 

DIM 8$<12,13) 


159 

FOR Fl='j. TO 10 


168 

READ B$ 


178 

FOR B=1 TO IFSKfl 
NEXT ft 

,B)=MI B$(B$ ,B,1 

180 

IF INT<RNB(1) +.5> = 

8 THEN 280 

190 

S$<5,5> = !1 ®" ■' S$ (5/7 


200 

PRINT "SO REM CLEAR SCREEN 

21 y 

GOSUE 580 


228 

PRINT:PRINT:PRINT 


230 

IF 05=6 THEN PRINT 

TAB<12)" I WIN 


: END 


240 

PRINT TftB< 4)"MOVE 

FROM"; 

245 

INPUT ft. E 


250 

PRINT TftB(4)"MOVE 

TO", 

255 

INPUT c,n 


260 

IF ABS09-0 = 1 AND 

ABS<B~B)=1 THEN 

270 

PRINT "ILLEGAL MOV 

E ' • ljUFu 248 

288 

IF 8$<0+1,B+i> = "*" 

THEN HS=HS+1 

290 

S$(ft+1.B+l)=" ":SI 

<0+1, D+l > = 11 ” 

300 

GOSUB 508 


385 

FOR 2=1784 TO 194S 


318 

POKE 2,32 


315 

NEXT 2 


320 

IF HS=6 THEN PRINT 

TfiB<14)"VOU HI 

338 

A$s="*" : GOSUB 408 


340 

IF FL=1 THEN GOTO 

360 

358 

ft$=" " : GOSUB 408 


360 

S$<E,F)=" " 


o r 8 

IF Sf<E+G,F+H)="$" 

THEN CS=CS+1 

380 

S:f<E+G,F+H) = "®" 


390 

GOTO 210 


400 

E=2 : F=2 : 0=0 : H=0 


418 

FL=0 


420 

IF S*<E,F ><>"•" THEN GOTO 455 

430 

IF 3$ < E+1 , F+1 > =R:£ 

THEN G=1 : H=1 

435 

IF S$<E+1 , F-l)=A$ 

THEN G= 1 : H=~-1 

440 

IF 8$ < E-1,F+ 1>=ft$ 

THEN G~"-~l : 1-1= 1 

445 

IF S$<E-1 , F-i >=ft$ 

THEN G= ~l : H=™1 
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458 'IF GO0 FiHD HO© THEN FL=1 : RETURN 
455 E=E+1=IF E>i8 THEN E=2:F=F+1 
460 IF F>11 THEN RETURN 
478 GOTO 410 

580 PRINT "a": FOR fl=l TO 10 ■ PRINT : FOR E=1 TO 11 
:REM HOME CURSOR 

510 PRINT "ii"; =IF S#(Fl.' = THEN PRINT "S" r- 

REM GREEN. LT BLUE 

528 IF SfCfi; THEN PRINT "ffl"; :REM BLACK 

538 IF ST(fl,B )=»"*" THEN PRINT "8";: REM LT RED 
540 PRINT TAB(12) ST(A,B>; 

558 NEXT:NEXT 

560 PRINT:PRINT TAB<4 >"MMDflCOMPUTER : ";CS,"HUMAN = 
"HS-REM BONN CURSOR 
580 RETURN 
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UNSCRAMBLE ALIEN 


Unscramble Alien is a word game written by David Vendy. The 
object of the game is to unscramble the word bombs the alien 
space ship is dropping on your city. The aliens will drop ten 
scrambled words. You must type in the correct word to stop a 
bomb from hitting the city. 

Use the “A” key to move your fire base to the left and the “D” key 
to move it to the right. Press the “S” key to fire at the alien ship. If 
you miss three word bombs, the game is over. This game uses 
sprites, sound and keyboard graphic characters to provide a very 
clear display. 

After the title display, the instruction screens will be shown (lines 
120 to 312). After you have read this information, the screen 
clears and lines 50000 to 50110 print your city at the bottom of 
the screen. Your fire base appears at the lower left hand corner. 

The alien spaceship comes onto the screen from the top right 
hand corner and flies out into the middle. You must manoeuvre 
your fire base under the alien and press the fire key. The alien will 
then drop his word bomb on your city. You have to try and 
unscramble the word and type it in correctly before the bomb hits. 
When you have typed the word in correctly, it will fly up from the 
ground and stop the word bomb from falling any further. 

All the word bombs are contained in the DATA statements in lines 
12000 to 122000. Line 70 READs this DATA into an array and line 
503 then picks a word out of this array at random. The routine in 
lines 505 to 527 scrambles the word and turns it into our word 
bomb. 

Lines 20 to 60 set up the sprites registers and READ sprite DATA 
from the DATA store in lines 11900 to 11997. 
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REM ** 

T UNSC 
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:POKES,X: 
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.« i‘ 
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01 
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NEXT 

40 
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:POKES,X: 

NEXT 

50 

POKEV 
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PO 

KEV+c 
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: POKE 

V+4,25 

: P 

OKEV+ 
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60 

i POKEV 
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: 0TO236 

J : REHBS3 

FIT) :P 

SENT 


100 POKE 

;53280, 


14 ; POS¬ 

(E532S 

11,246 


1 1 

o on to 

i 140 






•? •**:> 

j. 

:8 PR IN 

it " nns 

M 


UN 

{SCRAMBLE 

ALIEN 

12 

5 REM 

CLR sc 

:RN 

IT I 

SLUE REV UN 



130 RETURN 
j40 GOSUB 120 

141 PRINT 11 IS 

142 PRINT"US 


143 REM "H" IS UP CRSR "3" IS REV ON "1" IS 
REV OFF 


145 

pr i nt" ns 

li 

mmm 

150 

PRINT"ns 



ns ■" 


151 

REM WHITE 


155 

print "ns 

m 


S ■" 


160 

PRINT"ns 

5M 


JUMBLED HS 

161 

REM WHITE 


165 

print M ns 

m 

170 

pr i nt" ns 

■4 


a «" 


160 



na ■" 

171 REM WHITE 

1.72 pr i mt" na a a. ® ,: 

175 pr i nt !, na sa dropping oh vour citv. 
na a" 

i?8 PRiNT"na i a ■■ 

180 PR I NT "Ha Sal YOU MRVE 28 SECONDS TO DO THIS 
na i" 

185 PR I NT n na S a S’ 

190 PR I NT "Ha sa BEFORE YOU PHD VOUR CITV FIRE 

□a 

195 PR I NT "Ha ® a S' 

200 PRINT"Ha DESTROYED» Ha S’ 


BEFORE YOU RHD VOUR CITV ARE 


285 PR TNT"Ha S 
210 PRINT"Ha 

220 PR I NT "HE? 

221 print" sia s a s a s a 
rn ,— a s a s" 

222 print" a s a s a 


na s" 
a ®" 


a s a 


i—i a 8 


223 print" asasas as i \ a a a 

n i- g| »" 

280 GETfl$:IFA$=""THEN230 
240 GOSUB120 

250 PR I NT "Mai A COMMON EXAMPLE COULD BE:-" 

255 REM CPSR DOWN WHITE 

260 PR I NT" $3THE -'WORD BOMB" IS RLCSASa AND THE" 

261 REM YELLOW WHITE 

265 PPI NT "MJN JUMBLED WORD COULD BE I73CLASS. al" 

267 PR I NT" KiaBE CRREFULS# BECAUSE SOMETIMES YOU 
MAY":REM PURPLE 

268 PRINT"HUNJUMBLE THE LETTERS TO MAKE A WORD" 

269 PRINT"MBUT IT MAY NOT BE THE CORRECT ONE." 
278 PRINT"aOSI THE ALIENS WILL DROP 10 "WORD' 

BOMBS"" 

280 PR I NT "CURING THEIR ATTACK BUT VOUR CITV 

CAN" 

298 PRTNT"TOLY TAKE THREE,SO BE CAREFUL AND" 
388 PR I NT" MSC3QOOD T VP ING." : PR I NT" WM\ HIT ANY 
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KEY 


3@5 

REM DO! 

IN CRSR 

pp.y 

ON 

LT 

EL 

JE 

CRSR in 


ON L.T 

GREEN 







310 

GET A$ 

: IF A$= 

""THEN 

310 




O 1 ~ 

X c.. 

G03UB 

500 







315 

F U T ='' JMMMMMMMMMMMMMMMM^ '' 


320 

PRINT" 

1ZU 



!JN 

JUM 

BLE 

ALIEN 


MM"; 

G0SUB5 

0000 

1 





321 

D=1 NT (! 

RND(1> #150 > 

+30 

: P= 

24 ; 

POK 

EV+21, 


V--60 •' P 

OKEV+1, 

V : PO 

KEY 

H“3 .• 

220 



338 

POKEV+ 

3, X:POK 

EV+2 

,P 





330 

GET R$ 

: POKE 6 

58,2 

55 





390 

IF A$= 

"A" AND 

P-6 

>38 

TH 

EH 

P=P 

-6 

400 

IF m= 

"D" AND 

P+6 

as 

6 THEN 

ps= 

p+s 

401 

IFRT=" 

3" AND 

P>=D 

THEN 

600 



428 

IF X- i 

OD THE 

N X= 

■<-l 





430 

IF X=D 

THEN 3 

80 






440 

GOTO 3’ 

30 







500 

G 3. =0 ; G 

2=0 : G3- 

8 : G4 

—0 : 

G5= 

0 



501 

V=5324 

3: POKE 

V+21 

, 0 





503 

T~ INT( 

RHP< 1 ) * 

237) 

+0 : 

FT= 

ST ( 

T> 


585 

LE-LEN 

(FT) 







518 

FOR G= 

1 TO L.E 

■GT( 

i3 ) 

Mil 

T ( FT, G 

i, 1 > : HE 

520 

G1=1NT 

(RND(1> 

:TLE) 

+i 





521 

G2~INT 

(RND Cl) 

$LE > 

+i • 

IF 

Q2~ 

G1 

THEN 5 

er; 

03=INT 

( RND (1) 

*LE> 

+ 1 = 

IF 

03= 

G1 

OR G3-i 


THEN 5 

‘‘“ s 







524 

04=INT 

(RND(1) 

*le > 

+ 1 : 

IF 

IJ 4- 

G1 

OR G4=i 


rr r.r 

526 


530 


jbO 


G4=G3 THEN 524 
IF LE<5 THEN 05=8 

FOR T=1 TO LEIF OlOT RND G20T RND G3<>T 

AND G40T THEN 05=T 
NEXT T•RETURN 

TI $="808000" • LT=28 '■ RT="" : DR=6 
NT=LEFTT(FU$, DR > 

IF DR>6 THEN PR I NT " m "; H$; TAB C LO >G$ (G1 >G 
(02 >; 0$ (G3)G$ ( G4); G$ (G5 > 

REM HOME WHITE 

IF DR>7 THEM PR I NT 11 isiT'LEFTT < FU$ , DR-1 >TAB 

(L O;i ; " " 

I FAN$="" THENPRI NT" SMeiMM"; TEE ( 23)" 
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r T : LT=28 

: REM 

HO I 

IE DO!- 1 

-IN UP 

URyR 



561 

GET m 








562 

PR I NT !1 VMt 

M*5 

iBlS?" 

TAB (2 

8> "Si... 

.IVES : " ; !-■-!: 

PR I 

NT" 


SIbIbMpMciMs' 

W'Tfl 

B K V 

8>"SW 

ORBS" 




563 

PRINT"* 

M'*' 

DilMi? 

M"TP 

i P r o 

1 , " SliLEFT : 

"if 

HI 

564 

PR I NT" i®?] 


>1 • 

PRINT 

'" I*®! 

ii"; TOB <28) 

• ! i « 

Ifr'OiJ 


TYPED :,! 








565 

IF Rf="" 

then 

cr*7 

'0 





566 

PR I NT" SKI 


u 






567 

PRINT”* 

[Hjl H ; T 

RE< 

pp ''i ; ’ ! 

SiFr'Olj 

i JVRET?: ■" 

: PF 

iINTTHB 


(L i >; fif : FiNt=fii 

m+ 

Of : Rf 

= n M ; L 

T=L_T +1 



568 

REM USE • 

• FOR 

pp 

HIT 0 

|R LIN 

IE WON T F 

IT 


578 

IF r LT-28= 

: LE G 

■OT C 

i loot 

i 




cjjrjj/1 

DR-VOLu! 

$ > +6 

IF 

' DR=2 

:5 THE 

IN 3O0O 



598 

GOTO 530 








60S 

POKE 658, 

0 : SH 


f- Ijjr' P 

:H=36 

TO 188 ST 

EP 

6 

695 

IF CH>36 

THEN 

I Rh 

!=SH+1 





606 

IF CH=P T 

HEN 

LO= 

: 8H-2 





687 

IF P--36 OR P= 

4- B. 

THEN 

! 0=0 




61G 

NEXT■POKE 

• y.A. •[ 

6 , 1 

2 : ROK 

:e v+s 

1 , 7 



640 

nns! msooo 

Il7| : pp 

I NT 

: 

TOB < F 

0>; "lia 


11. 


G$ (G i)G $ 

> ( G2 > 

: Git 

: < 03 > 

Of (OF 

• ); Of >335) 



645 

REM HOME 

DOWN 

r i~ : 

SR GR 

FEN R 

EV ON 



650 

PRINT"3": 

FOR 

T=l 

TO 1 

4 : PR I 

NTTFiB<28) 

"a 



" ■ NEXT T 








660 

GOTO 523 








i 000 

IF RMf"F 

$ TW 

E’H 

2808 





1010 

PRIHT"S®!1SWR0 

NO" 

: flN$= 

tf II • J -J- 

=28:GOTO 

530 

i 

1 fl>Tl 

REM HOME 

T"l »***! { t 

jj u !•■•{ 

I- ! R 

EV ON 





2000 

FOR KI-2 

8 T 0 

. DR 

STEP 

-1 : PR 

INT"li"LEF 

Tf 



(FUf,KI>; 

TAB* 

:lo; 

'; FiHf: 

REM LT GREEN 



2001 

PR INTLEFTf < F 

U$, 

KI +1 > 

TOB ( 

LO >; n 

H 

FORG= 


0TO2O:HE 

• .1 T* 

p ! h .* 

KI : 

POKEV 

+21,7 




2004 

FOR P=G 

TO 2' 

4 : P 

OKE L 

+P, 0 : 

NEXT:POKE 

v+ 

'6,25: 


POKE.V+7 

, 140 






' 

2005 

POKE L,2 

49: Pi 

r<['p 

j...j ‘*2* '5* 

: POKE 

R,8 : POKE 

L+ 

OF' 
c-«rl } 


104:POKE 

L+23,1 

: POKE 

L+24 

,79 



2006 

FOR PN=1 

TO 

15: 

POKE 

L+4, 1 

29:POKE v 

+21 

, 7 : 


FOR T=1 

TO 2 

50 : 

NEXT: 

POKE 

L+4,128 



2807 

POKE V+2 

1,11 

:F0R T=1 

TO 3 

0:NEXT: HE 

XT : 

POKE 
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v@Qy 

2018 

2828 

3888 


8810 

3028 

4880 

4810 


4040 


4058 


L+24,8 

FOR !j=l TO 1008-NOT 

RH$="" : M=M +1 : dr-6 : POKE V*218 

IF MCI I THEN GOSUB 588 : GOTO 315 

GOTO 4808 

0 $--:''" .i :riR=6 

PR IHT"isIciMuMBFlD LUCK IT WAS ";F$; " 

": GQSUB30000 : W=W-1 : DR=6 ; POKEV+21 .■ 8 
FOR U=1 TO 1000:NEXT 
IF lid THEN GOTO 5888 
GOSUB 508 : GOTO 315 
FOR TIT--1 TO 1880: NEXT 
PR I NT " 23" : POKE 53288 ,6 '■ POKE 53231., 3 
PRINT TfiBCl) "WGU HAVE SAVED 

THE ClTV FROM THE ALIENS" 

IF W=3 THEN PRINT TAB<3> "WITHOUT 

LOSING ANV OF VOUR 3 LiVES" ■ 

IF W~ : 3 THEN PRINT "If!" TAB(14) "SSEXCELLENT* 



: GOTO 

4078 






4868 

PRINT 

"W T 

RB< 1 


"VOU LOST"; 

3---W; "L 

IVES" 

4078 

GOS! IB 

: 3 0888 






4038 

END 







5008 

FOR TD=1 TO 

100 

0 

PRINT "23" : F'O 

KE 532 

30,0 : 


POKE 

53281, 

0 





5018 

Print 



Mi 

!l" TAB(5) "XJS 

fr'OIJ HA 

VE LOST 


ALL T 

HREE L 

IVES 

H 




5028 

PRINT 

"M" T 

AB < 6 

) 

'TIAFTER CUES 

SING 0 

NLV " ;M; 


"WORD: 

ii 






5038 

GOSUB 

3000£ 

i 





5848 

END 







6800 

PRINT 

m rp, |n • p 

OKE 

nr** 

• J •- 

5288,4:POKE 5 

3281,3 


6018 

PRINT 


1 :PRINT TAB<1 

p *;i ; 


6828 

I ‘i f t .-i s i n 

61 10 : 

PRINT 

"33AMLEBNURC 

'Tinea 

": FOR 


TD=1 

TO 588 

: HE¬ 

T 




f: Fj Fj !/! 

GOSUB 

61 10 : 

RRIN 

i 

"USNLRMABCE 

AEILH" 

: FOR 


Si 

i-4 

1— 

TO 580 

: HEN 

T 




6840 

GOSUB 

6110 : 

PR IN 

T 

i 

"UNSMRLCABE 

AELIH" 

: FOR 


TD-1 

TO 580 

: HEX 

T 
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"UNSCRAMBLE ALIEN" : GOSUB 


£030 

30SUB 61 

1 0 : f 

f 

30000 


r'. j/i i;;; : ! ; j 

RETURN 


6 110 

PRINT 

MUM? 

•\ |y! pf C 1 ! !/} 

PRINT":? 

11! 

1 00 1 0 

j'lj p T !“‘| :t ; 

IF A 

10in?ri 

RFTI iRN 


•j i 9Q0 

DRTR0 ,• 0 

! , 0Pi 


128, 15, 

255, 

1 j 910 

*n f~j T f'j p 9 

, 12€ 


9 9 9, 

! , >'99 

i 1920 

BATA243 

, 3.1,; 


56 , 254,2.55,255,255 , 255,255, 


128,14,0,224,19,0,160,14,0 


11940 

BATA© , O. 

1 

J. 

p , 

0 , 0 , : 


. 0 , 

0, 

1 

24 

, 0 

, 0 , 

124, 0, 

0 , 12 


0,0,254 

, P 

1,1 

!:z* , 3 ’ 

1 ( 

16. 

cr "** 

• j r 


255, 

56, 

69 


11958 

BATA255 



i 1 . 

:5 

5 , 1 

30 


1 3 

i, 

Otrcr 

'.J 

, 130, 1 

31, 


255 , 130 

, 1 

31 

, ‘rj Pj , 

1 

30 , 

13 

1 

■- 

55 

:, 13 

0 


11960 

BATA131. 


c=jcr 

, 130 , 

i 

31, 

•**•» nr cr 

i. 

, 1 

3G 

, 13 

1,255, 

130, 


131,255, 

1 

30 

, 131, 

«-;»! 

55, 

13 

3 

, l: 

31 

, 255 



11978 
11975 


BATA130,130,254, 0,0 

BATA5S,0,0,124,©,0,230,0,0,254 


4,9,124,15 



0,56,56,0, 1 

26,224,0, 

255,128,0 

1 1 9 8 8 

DAT0254,0,0 

, 255,255, 

0,254,4,8,254,0,0,0, 0 


0,254,0,0,1; 

24,0,0,12 

4,0,0,124,0 

11985 

DATAO,124,A 
0,0,0 

, 0,56,0,8 

, 56,0,0,56,9,0,0,0,0, 

11990 

DAT056,0,0, 

124,0,0,2 

:30, 0,0, 254,0,0, 254,0, 


0,124,0,0,1 

20,2,0,255,255,128 

11995 

BATA255,255 

, 129,252, 

2,0,252,0,0,252,0,0, 


252,O,0,0,0 

i,G,252,0, 

0,248,0,0,112 

i '! OQ7 

DATAG,0,112 

,0, G, 126, 

0,0 


12000 I)ATAMQRE, ROME, HA IR, GI EL, FOOD, PHONE, FARM , 
SHOT,HOUSE,GRASS,DATE 

12818 BATAVOUNG,THERE,THEIR,HERE,WHERE,FOUND, 
POND,HORSE,RADI0,DOOM,PAPER,NEWS 
12029 BATABEATH, KI L.L, CLASS, BURN, HANDS, FEET, HEAD 
BODY,GLASS,SHOE,FIRE,NIGHT,WORN 
12038 DATAWORK,PLAY,DOOR,VASE,LUNCH,BREAD,BIRD, 
DRAW,ROOM,ZEBRA,SOME,LIGHT,WRONG 
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12040 
12050 


1 

12070 
12080 
12898 
12108 
12118 
12120 


12140 


12178 
12180 
12190 
12209 
12218 


20808 
28005 
200 18 

28028 

90900 


TATARIOUT,HRIL,PLfiIN,QUEEN,KING,LAST,LEMON 
, BLACK,BON,XMAS,QUAY,LIGHT 


DATAMAID,MADE,RAISE,SNOOP,PEEK,POKE,NOSE, 

PRIZE,EEIT,LIHE,BACK,RALLY 

DATAROOT .• SCREW, HUMP, POEM, VERSE.. SONG, BUNK, 

EPIC,TIED.TILT,LILT,WILT 

DATATORCH,MATCH,FIRE,SMOKE,STAND,MATHS, 

LEGAL,ROYAL,TURN,AMPLE,BOOT,SONIC 

DATARIFLE,SPRAY,TABLE,GIRL,LAZY,SHIRT, 

SHORT,FLOOR,CLOTH, CARD, HEART 

DRTA8UNNY, CLOUD, QIJICK, PR I ME, FOLD, HOLD, SOLD 

,COLD,MOULD,BOLD,FUNNY,BUNNY 

DATAWOOD,GOOD,HOOD,QUAD,BRAY,DAZE,PHASE, 


GAZE,HAZE,CRAZE,MAZE, PRAY 

DATARA20R, TRAY , QUASH, QUI L.L. . MI LL, DR ILL , SILL 

,KILL,PLUM . 

D ATANAME,QUIET,MUTE,NOISY,ROVER,RANK,SLATE 
,GREAT, LARGE,ZERO,REAL,VAGUE 
DATALIKE,ABLE,BEEN,BEAN,SHAFT,ARROW.CRAG, 
BLEAK,LATE,FATE,GRATE,ERECT 


DATAMUFF,ALERT,ALOOF,SPEED,ABOUT,TARDY, 

DETER,OVER,STORE,PROXY,PRUDE 

DATABEAT,PULSE,LACK,NEED,WANT,FUND,DRAB, 

FLUSH,SCARE,ORATE,SERF,SLAVE 

DATADIREST,QUOTE,SCAN,PLACE,GLUE,STICK, 

VEST,AGREE,FADE,CLUB,TRIBE/CROWD 

DAT RSNAKE,CALM,BEGIN,FORTH,TRICK,PUNCH, 

CHEAT,ROOK,GULL,FRAUD,SWAY, WAVE 

DfiTASWIRL,WHIRL,SNAG,CHOP,SAUCE,WIBE,ALLY, 

COUNT,SOLVE,SHAME,FORCE,SCOPE 

DATA,ONLY,BUSH,PHONE,BROWN,BLUE,WHITE, 

NAVY,ARMY,PINK,GREEN, APPLE, PEAR 


HK-54296•K=54276 : A=54277 : H=541 


L=54£ 


FORT=0TO24:POKE! +T.8 : NEXT 
FORX"15TO0STEP-1:POKEHK,X:POKEK,1; 
15•POKEH,48:POKEL,200:NEXT 
POKEK,0•POKER,O'POKEHK,0 : RETURN 
8=54272 : FGRT=0TO24 : POKES+T.0:NEXT 


9:POKER, 
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30818 POKES* 1, 130 : POKES+5,9 : POKES* 15.. 30 : POKES+24 
, 15 

38020 FORL~0TO5'POKES+4,21:FORT=0TO208=HEXTT: 
POKES+4,0: FORT=010200: NEXT!, L. 


30038 

PFTIIPN 



PRINT "SI" : 0=0 


58005 

PRINT "MM®? 

[pTpTpMpI«IsIpMi 6!?]" Tfl 

50006 

REM ORANGE V 

nMF nni.iH rpqp 

50010 

pptnttrbcg); 

" _ / y| 


PRIHTTflBCG); 

" / a rm i 

58030 

RRIHTTflpoT:. ; 

" mm L..JTT1 i 

50040 

PRIHTTflBCG); 

" rrrrv rm i 

5O0501 

PRINTTABC G ); 

" mTTTTrm i 

50060 

PRIHTTflBCG); 

" mTTT'TT T"H ! 

50070 

PRIHTTflBCG); 

" m'TTrrrm.-- 

50000 

PRIHTTflBCG); 

11 - —.— 

50090 

IF 0=26 THEN 

50110 

50180 

0=0+13 : GOTO 

500105 

501 10 

RETURN 
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REVERSI 


You can now challenge your computer to a game of Reversi. The 
computerised version of this popular board game (often called 
Othello) should give you many hours of hard work as you try to 
defeat the mighty 64. You will find that the computer plays this 
game very well and you’ll be hard-pressed to win. 

Reversi is played on an eight by eight board and players take it in 
turns to place a piece on the board. The pieces are put onto the 
board in such a way that one or more of your opponent’s pieces 
are trapped between two of your pieces. These trapped pieces 
then become yours. At the end of the game, the player with the 
most pieces wins. 

The game starts with each player already having two pieces on 
the board. Your playing pieces are the yellow circles and the 
computer’s pieces are the blue diamonds. 

To make the game a little more interesting a time routine has 
been added. This gives both you and the computer a set amount 
of time in which to make your move. If either player fails to make a 
move before the time runs out, that player forfeits his turn. 

At the beginning of the game you will be asked if you wish to have 
the first move. After you have answered this question, the screen 
will clear and the board will be printed up. 

To the right of the board is a box which indicates that a move is 
being considered and, beneath this is the time count down 
display which shows how much time is left for a move. 

The computer will prompt you when it is your turn to move. First 
enter the number down the side of the board and then the 
number across the board to indicate which square you wish to 
place your piece in. If you cannot make a move, enter a zero. The 
prompt routine is located in lines 80 to 150. 

The board is printed by lines 700 to 920. This routine prints the 
grid, checks to see which locations contain playing pieces and to 
which player they belong. It also checks to make sure that both 
players are still in the game. Under the playing board it prints how 
many pieces each player has, and who has the current turn. 
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10 REM *** REVERSI *** 

20 REM "IT’ IS CLEAR SCREEN "53" IS HOME CURSOR 
"il” IS DOWN CURSOR 

25 REM "l" IS UP CURSOR "IT IS LEFT CURSOR 
30 GOTO 1130 
40 ppu Tick's 

50 POKE ME,8 :POKE BE,8:POKE 54272,0 
60 POKE VO•15 : POKE BE,24 : POKE UF,33:POKE 54273, 
17-POKE 54272,-37 
78 FOR 1=1 TO 10 : NEXT:RETURN 
30 REM PRINT f PROMPT 

FOR 1=/ TO uae'; next’ 

":FOR 1=1 TO 50 : NEXT : RETURN 
110 REM PRINT PROMPT 
115 PRINT " W ;TAB i 8>; 

1 20 PR I NT " :silP!lS!l!!!lnilP® if P ^ is la @1 P fi» IP I S-Ki?® IK-EpI 

K4S1J" -FOR 1 = 1 TO 100:NEXT 
12 5 P F: I NT " 53"; Tfi B < 3 >; 

130 PR I NT" sSMBMsiiiiiiiiiiis ill Ml Ml ill ill ill 


ill ill ": FOR 1 = 1 TO 50 •• NEXT •• RETURN 
148 REM INPUT 

Mi!"; : RETURN 

160 REM PRINT TIME REMAINING 

175 I F _ J-VAL (TI $ ) < 10 THEN PRINT " "7J-VRLCTI $>.: •' 
GOTO 130 

ISO PRINT J.VfiL(TIT>; 

190 IFJ-VAL < TI $ > <U 1THENPRI NT " 

2@0 IF " J .VAL<TI$>'<6 THEN OOSUB 40 : REM TICKS 

218 ON FLAG GOTO 830.500,510,610 
220 REM THINK 

23© PI = INT<RNB<l )% 18+1>:POKE WF,0:POKE BE,0:POKE 
54272,0 

240 POKE BE,24 : POKE WF,33 

250 POKE 54273, HIX < PI > •' POKE 54272, L.OX (PI > 

260 POKE 55482,INT <RNB<1 >% 16 >:POKE 1210,1SO: 
RETURN 
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3?fi 

pFM 

280 

PR l S37»; 

290 

GOSUB 

300 

T jrpcf «» 

310 

PRINT ' 

320 

FLRG-U 

330 

8 =o : t=; 


< Fi, BX 

340 

Q:=0 : FO 

330 

T r H ( F 

288 

K=K HJ1 

370 

IF 3<F 

380 

CT-'Q+H 

390 

HPXT : N 

460 

IF fl=R; 

410 

IF B=0 

420 

IF R=3 

430 

IF B=3 

440 

IF <Fl=i 

450 

IP /R=: 

460 

IF 3<H 


500 

!••■) -: 0 ' "pi :r: j 

**r ? 

480 

GOSUB ; 

490 

FLflO=2 

500 

F L. h * j 

510 

G03UB ; 

520 

IF H=0 

530 

i"**' t~ ! j Ti t 

'JiJC'-.) O . 

540 

GOSUB ' 

550 

.T=VRL .C 

560 

IF VOL 

578 

Cf~" :' 

588 

GET B$ 

530 

GOSUB i 

600 

FLAG”4 

61 0 

IF Bf= 

620 

IF Bf=' 

638 

640 

650 

i r ]_• -T . 

IF 9SC 
GOSUB 


THEN R=VflL(C$) •'GOTO 670 
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fee’8 iju F'j 5yu 


£70 

ri r.c 

M:r T 1*. 

IT- 

rr. 

:rxi0 

) +• 

1 : N 

R — 1 

T KIT 

(R/ 

1 0 ) + 1 



j- ■■ !.• j 

790 

COSUB 

p!.J 

700 : 

GO 

T03 

1 0 






700 

Dp ]• 

IT 

! 1 1 J • 

’tr.’j 


0 : pi 

— D 






7 •; m 

d p 1. 

: «. • 

rr 

PR IN 

i 

T P P 

(12) 

"XISIRE' 

v'EF 

C;Tf»" • 

PRINT 

REM 


ORAr 

IGF 

r 









720 

PR I !• 

DO T 1. 

IT 

IT 

TAB'- 

11 

>" a 

It 234 

5673" 

; RE 

M UNITE 


: . 9 !;U 

748 

! i J. ! 

FOR 

? I 

B : 

=2 TO 

! 7 

: RR 

I NT 

TAB (3 

)B- 

1; 



-**» rr .'9 

Df?p 

7" 

-2 TO 

i 9 

: IF 

A'-B 

,B)=X 

THEN C~ 

C+1 : PF 

? I NT 


"!> r 

! • 

: GOTO 

1 7 

70 ■ 

REM 

LT EU 

JE 




7 f 0 

IF F 

: ! (} 

?.’D) = 

OTHEN 

PR I 

NT" nil 

! 1 ■ • 

H=H+1 

: REM S 

(ELL.OW 

777 

PR J !'•■ 

i i 

' 3!" ; : 

PF 

}•,•! I 1 

!■■■! ITE 






7 9 Fl 

T P f 

| ( X 

3, B) < 


flHD FK 

b,dx: 

>0 

THEN 

PRINT' 

! ii • 


790 NEXT 

809 PRINT E“1 : NEXT 
310 PR I NT : PR I NT TAB ( 1.1 > “ m. 2345678" 

320 PRINT 

338 IF C+H™64 THEN 1000 
348 IF C-0 THEN 1.888 
858 IF M“8 THEN 1888 
860 PRINT TAB(9)" I HflVE • «•; 

378 IF CP 10 THEN PRINT 8PC<1);C : PRINT 

888 IF C<!10 THEN PRINT SPC(2); C: PRINT 

898 PRINT TAB(9) "SPr'OU HAVE : ai"; : REM GREEN WHITE 

988 IF H> 18 THEN PRINT SPC(1);H 

918 IF I-K18 THEN PRINT SPC (2).Hi 

928 PRINT:RETURN 

930 FOR C=-l T017 FOR B=-U1 TO fjl ; F=M : G=N 

948 IF A(F+C, 0+1003 THEN 988 

950 F=F+C:G-G+B:GOTO 948 

938 IF A(F+C, G+DOT THEN 990 

978 fl<F,G>=T:IF M=F AND N=G THEN 998 

988 F-F-C : G=G-D : GOTO 978 

998 NEXT:NEXT:RETURN 

1888 REM 

1010 FOR 1=1 TO 1880'NEXT 
1828 PRINT 1 ''' 

1038 IF OH THEN PRINT SPC(24);"I MON";C;H 
1048 IF C<H THEN PRINT SPC(24);"VOU WON";H;C 
1050 IF H=C THEN PRINT SPC (24)" IT-"3 A DRAW !!!" 
1060 PRINT•PRINT SPC(24);"ANOTHER (V=VES, N=NO)" 
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1070 GET fir- IF Rf=""THEN 1070 
1980 IF fl$="V" THEM RUM 
1PRINT"7!" 

1100 EMD 

1110 REM F'RIMT THINK 

1120 PR I NT" sm "; SRC < 24) ; " THINK": REM WHITE 
1180 PRINT ARC<24) "..." 

1140 FOR I -1T03 : PR INTSPC (24)" I "SRC < 3); " I": NEXT 

1.150 PR I NT SPC < 24 >; "-" 

1160 REM PRINT TIMER 
1165 PRINT "S3"; TREK 10).; 

limn !._jiiiin rrn r- M 

1180 RETURN 

1 i 90 PR I NT" 71" : POKE53280,6: P0KE53281,11 ■ .1=42 
1200 X=RSC <"♦"> : 0=f!SC < >: HI MR < 10.. 10 > , HI *» < 18 > .■ 

I nv ( 1 8 

1285 REM UPSHIFT 2 PHD 0=3HIFT 0. 

1R1 0 ! i 1=1 :P3=.3 : R2=2 

1220 FOR B=1 TO 10:FOR C=1 TO 10: IF BOU1 RHB 
COU1 AND BO 10RMBCO18THEHR <B, C ) = 8SC <"." > 
•i O NFXT : NFXT 

•| pdp p p:,'> 3 : p ( R , f, '> 3V : p ( C ,, 5 ') =0 : 0(5 , 6 ) =0 : P=0 
1 250 FOR I = 1 ’ TO 1 8" READ HI V, < I > : RE0B LOT (I > : NEXT 
1260 SC=54272 : EQR I=SC TO SC+24 : POKE 1,0:NEXT: 
REM CLEAR SOUND CHIP 


•i 

A 

i.j 

yn=54 

296 

: PEM 

■,'’GLUME 




1 

280 

DE=54 

“*!» **7 

cL f 1 

: ME=5 

4276 ~ 




1 

290 

PRINT 

"7 

" TAB 

(12 >" ME 

siMsM 

CTO 

you MRNT 



•• REM 

L.T 

BLUE 





1 

300 

PRINT 

TP 

B 1 2 > 

"FIRST 

( 1 a 

VES, 

2=HO >” 

1 

310 

GET F 

$ : IF R:f= 

"1" OR 

A$= 

n 0 11 

uIm 

THEN 280 

•j 

320 

GOTO 

131 

0 





1 

330 

REM P 

ITCH BFlTR HI, L. 

ON 



1 

340 

D8T0 

8 . 1 . 

47,9, 

159,10 

, 205 

, 11 . 

114 

1 

339 

DATA 

a 

216,1 

4,107, 

17,3 

7, 19 

, 63 

•I 

360 

DATA 

21 , 

154,2 

. pPP , 

25, 1 

f‘‘ •' .* <0 

8,214 


37 0 

DATA 

A 

-nrr •*“m***i 

«; J .« O O 

7126, 4 

3,52 

,45, 

198 

1 

380 

BATA 

51, 

3 • • J I' 

, 172, 6 

8, 14 

9.»7 6 

; r per-"' 

1 

390 

DATA 

86, 

105,91,140, 

102, 

1 y 4 
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CHESSBOARD NIM 


This program plays an interesting variation on the game of 
Nim. The idea of the game is to start with a random number of 
playing pieces, matches are often used, then two players take 
it in turns removing a number of pieces from the pile. The 
player who is forced to pick up the last piece loses. 

The computer picks a random number of playing pieces and 
places them on a chessboard. It then randomly sets a limit to 
the number of pieces which can be removed at any one turn. 
This is done in line 60. 

The routine from line 410 to 480 places the number of playing 
pieces into the A array and then lines 90 to 110 print out the 
relevant information. 


The board and playing pieces are printed out in the routine in 
lines 120 to 210. You can change the shape of the playing 
pieces by altering the value in line 420. 


10 

REM 

CHESSBOARD 

HIM 


15 

POKE 

53280.. 6 '■ PC 

»KE 

53281,11 

30 

3 ::;; 0 

i>0 



50 


!T..:iiTRHIKl; 

> +2 

1 

60 

i '■ i ! 

■IT (S^RNDv 1 > 3 

»-i-3 


70 

DIM 

A •: 32 > 



30 

GOTC 

3 416 



90 

IF :• 

3=0 THEN PRINT 

TAB < 73' "SPIECES 


BOARD■ ";Z:REM GREEN 

100 IF 3=8 THEN PRINT "2MTHE MAXIMUM NUMBER YOU 
CRN REMOVE IS : ";F : REM LT RED 
110 IF C>0 AND 3=0 THEN PRINT TAB<7> "SWOU TOOK" 
;C;"flNB I TOOK";B•REM YELLOW 

ISO FOR fl=0 TO 3 

138 PRINT 

140 FOR B=6 TO 3 

1 50 PRINT "1" TAB<15 > CHR$ <A <29+R-B#3 > >;CHRf<166 ) 
: REM PURPLE 
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160 NEXT E 

17© PRINT 

ISO FOR B~0 TO 3 

1 9Q PR I NT TAB < 15 > CHR$ < 1 66 >; CHR$ ( fi < 25+R-B*8 > >; 
200 NEXT B 
210 NEXT fi 
215 PRINT 

220 IF S~1 THEN PRINT TfiB(lb) 'TSsM^OU WIN" : END 
: REM LT BLUE 

230 IF S-2 THEN PRINT TFlB( 17) "IMSM WIN" : END : 
REM LT BLUE 


250 PRINT 

260 PRINT TABC?> 

REM ORANGE 


"JMWHOW MfiNV 


WILL VOU TAKE" 


270 INPUT C 

280 IF CC1 OR OF THEN GOTO 270 
290 2 : ~Z--C 

300 IF Z>0 THEN 330 

320 IF^S-Z THEN GOTO 410 

330 B-Z~ i -1 NT (< Z.1 > / (F+1 >) * < F+ .1 > 

340 IF D=8 AND NOT Z~1 THEN B-INT <F#RNIK 1)> + l 
350 IF HOT DCZ THEN 340 

366 IF Z-CF+2 AND INT(5*RND(1 >> + 1=5 THEN D=B+IHT 
(2$RND (1 > > +• 1.1 NT C 2:fRNB < 1 >} +1 


370 IF D>F THEN GOTO 33 

375 IF H>Z THEN 338 

330 IF ECO THEN B=0 


480 IF Z=8 THEN 3“1 

410 FOR fi-~ 1 TO Z 

420 fi(A>=-113 

430 NEXT fi 

440 FOR fi=Z+l TO 32 

450 fi(fi>~32 

460 NEXT fi 

470 PRINT '",T•REM CLEAR 
480 GOTO 90 


0 
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APPENDIX 


Writing your own games 


175 




WRITING YOUR OWN 
GAMES 


To write an exciting game of your own you must first start with a 
specific idea. This may sound a bit obvious but unless you begin 
with a definite goal in mind you will find that it isn’t easy to 
produce a game which will provide a challenge and still be fun to 
play. 

Games fall into three basic categories:- 

• Board games, such as Checkers, Chess and Solitaire. 

• Arcade games, such as Pacman and Space Invaders. 

• Games of chance, such as card games and dice games. 

You can find ideas for your own games by watching arcade 
games, looking in toy shops at the large variety of games 
available and by reading books about the various types of games 
of chance. However you must be very careful not to infringe the 
copyright on any commercial products. Even if you start out to 
copy an established arcade game, you will probably find that at 
some point during the development of the game it will begin to 
change and will probably finish up bearing little resemblance to 
the original. Computer programs tend to develop a life of their 
own as they expand! 

Before you start programming it is essential, as we pointed out 
earlier, that you haveafirm ideaofwhatyou need todotoachieve 
the final product. Set out, on a piece of paper, all the phases of the 
game, all the functions the computer will need to perform and 
what actions are required from the human player. Does the 
computer have to play an intelligent game, as in Chess or does it 
have to provide a system of random events such as Roulette? 

If you are writing a simulation such as Sunnybrook Farm, you will 
need to think out in advance all the factors that need to be taken 
into consideration and how they will interact. In a game such as 
this it is advisable to make a list of all the variable names you are 
going to use and what they stand for. This will prevent problems 
arising if you happen to use the same variable name twice in 
different routines. The first working version of Battle of Britain 
suffered from this problem. Roger used the variable HI to keep 
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track of the number of Heinkel Hel 11 bombers. Robert had used 
the same variable name, HI, as the value of the high frequency 
sound in one of the sound routines. As a result the numbers of 
Hel 11 bombers rose and fell alarmingly during the course of the 
game! 

Once you have the plan of your program, think out in advance any 
programming techniques that will be required. If it is an arcade 
type game, will sprites be needed or will programmable characters 
do the job better? Will arrays need to be set up? If they are, can 
they be filled with random elements or will known data be read in 
to fill the array? 

When all these factors are clear in your mind, block out the 
program on paper, putting in all the routines which will be needed 
in an order which will make for efficient running and an easy to 
read, orderly program. You will see that the larger programs in 
this book such as Sunnybrook Farm, Roman Empire and Battle of 
Britain have been written using a control program in the first few 
lines which then calls up a series of subroutines as they are 
required. This is a very efficient method of programming, which is 
often called ‘module programming’. It keeps the program neat 
and tidy with all related functions together in the one routine. This 
makes reading the program or debugging much easier. For 
instance, in the case of Roman Empire, if the information screen 
is not performing correctly, you know that the problem must be 
between lines 5800 and 5950, the routine which is called up to 
print the Senate Report. 

Put the routines which are only used once, such as the initialisation 
routine (in which you set up variables, sound generators, sprites, 
etc) and the title screen routine right at the end of the program 
where they are out of the way. Then try to keep routines in the 
order which they are most required. If you are using one routine 
regularly and,you place it right at the end of a long program, the 
computer has to run through nearly every line number in the 
program looking for your routine each time you call for it. 

In moving graphics or arcade type games, the speed of the game 
is the most important thing. If a game is too fast it can be slowed 
down using time delay loops, but is very hard to speed up a game 
which runs too slowly. In games such as Descent Into Chaos and 
Space Race, we have used a core program which only contains 
the basic elements required to make the game run. All other 
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routines are outside this loop and are called up only as they are 
needed. This core program should be kept as clean as possible 
for fast, efficient running. 

If you have a program which requires input from the human 
player, make sure that you have used sufficient error trapping 
routines to prevent all illegal inputs being accepted by the 
computer. You should also make sure that any information the 
player needs stays on the screen long enough for him or her to 
read it! 

You must allow foras many unlikely events as you possibly can in 
your game design. If you have developed the game entirely by 
yourself, you are then the world’s greatest (and only) expert on 
how your game should be played. You can’t assume that everyone 
else who plays your game is going to play intelligently or obey 
your rules. 

One of the first things we do when a program is submitted to us 
for publication is to play the most outrageously bad game we 
possibly can. For instance, in an Adventure program we will try to 
walk through walls, pick up objects that don’t exist and any other 
similar thing we can think of. In moving graphics games, we will 
try to move off screen, shoot friendly objects and generally try to 
make the program break down. In a board game we will move the 
wrong way and make as many illegal or stupid moves as possible 
to see how the program copes with problems. 

To be a winner, your game must be interesting to play and provide 
a challenge for the player so that you hold his or her interest. Lots 
of sound and colour as well as good routines to cover failure and 
success will add a lot to any game. 

Finally, your game must be thoroughly play-tested. You must 
make sure that every routine, no matter how infrequently it 
occurs, works every time under all circumstances. 

If you have written a game which you think is an interesting, 
exciting and challenging program, why not submit it for publication 
and let others enjoy your programming skills. We are always 
interested in hearing from new programmers and can be contacted 
via the publisher. 
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COMMODORE 64 COMPUTERS PLAY 

If you are the owner of a Commodore 64 microcomputer, then 
bring a new dimension of fun into your life with this book of 
exciting games and adventuresforyour machine. 

Once seated in front of your microcomputer you will find 
yourself rapidly transposed to the cockpit of a Spitfire as you 
relive the Battle of Britain. Time is no object as you travel back 
to take the throne at the head of the vast Roman Empire. But if 
you find this pace a little too hot then settle down to challenge 
the might of the Commodore 64 directly in a game of Reversi. 

Other challenges include: 

★ testing your reflexes in a Descent into Chaos 

★ skiing down difficult mountain slopes 

★ braving the dangers of a Cosmic Journey 

★ attempting to stay alive in Survival 

★ the responsibility of running Sunnybrook Farm 

★ using your imagination in visualizing 3-D Noughts and 
crosses 
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